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V prubAhu letoSnfho roku vyvrchoH 
pAtiletA usilf orgAnu a organizacf za 
spInAm zAvAru VII. a pffprava na VIII. 
celostAtnf sjezd Svazarmu. CelA kam- 
paft vyroCnfch based, konferenci 
a sjezdu bude prostfedkem kritickAho 
hodnocem vysledku prAce Svazarmu, 
jeho podtlu na plnAnf zAvAru XVII. 
sjezdu KSC rozpracovanych 6. spo- 
leCnym zasedAnfm UV a RUV Svazar¬ 
mu a pffleiitostf k vytyCenf daISfch 
zAmAru v rozvoji brannA vychovnA 
Cinnosti. 

PlnAnf novych ukolu bude ovtivnAno 
vyznamnymi celospoleCenskymi proce- 
sy vyplyvajic(m) z realizace strategic 
urychleni sociAlnA ekonomickAho roz- 
voje spoleCnosti na zAkladA pfestavby 
hospodAfskAho mechanismu, daISfho 
rozvoje socialistickA demokracie a for- 
movAnf novAho mySlenf, odpovfdajfcfho 
intenzlynfmu typu rozvoje spoleCnosti 
i Svazarmu. 



Hlavnf usilf zamAfuje celA organizace 
v souCasnAm obdobf na realizaci 
a objektivnf hodnocem uCinnosti plnAni 
ukolu politickovychovnA prAce vyplyva- 
jfcfch z rezoluce VII. sjezdu a zejmAna 
ze 4. a 6. zasedAnf UV Svazarmu jako 
souCAsti pffpravy a prubAhu vyroCnich 
jednAnf a pfedsjezdovA kampanA. 
ZvIAStnf pozornost musf byt zArovert 
vAnovAna stavu a urCujfcfm tendencfm 
brannAho vAdomf, nAzorum a postojum 
ClenO i ostatnfch uCastnfku brannych 
Cinnosti k vojenskA a brannA politico ve 
smyslu zAvAru XVII. sjezdu KSC 
a poiadavku urychleni brannA vychov- 
nAho pusobenf. 

V plnAnf usnesenf 8. spoleCnAho 
zasedAnf Ostfednfch vyboru Svazarmu 
a dustednou realizaci PIAnu spoiuprAce 
CSLA a Svazarmu se cflevAdomA zvy- 
Suje vyslednost pffpravy brancu, vybra- 
nych zAloh, brancu nAhradnf sluiby 
a pffprava k civilni obranA. 

Vp smyslu zAvArO ceiostAtnfho aktivu 
klubQ dustojniku a praporrtfku v zAloze 
je souAasnA obdobf poznamenAno 
vySSfm stupnAm organizovanosti DPZ, 
rozvojem Airrrrosti a zapojenfm v bran¬ 
nA vychovA mlAdete, pffpravA brancu 
a Cinnosti v civilnf obranA. AktivnAji je 
rozvfjena zAjmovA dinnost KDPZ. 

Pfi rozvfjenf zAjmovA brannA rtinnosti 
v duchu 7. zasedAnf UV Svazarmu 
k zavrSeni plnAnf rezoluce VII. sjezdu 
k masovAjSfmu a uAinnAjAfmu brannA 
vychovnAmu pusobenf organizace je 
fidicimi orgAny Svazarmu doporurteno 


duslednA vychAzet z obsahu schvAle- 
nych koncepcf odbomostf. Za souCAst 
obsahu kaidA odbornosti musf byt 
povaiovAna dlouhodobA pPfprava 
mlAdeie pro siu2bu v CSLA a to jak 
pofitickA, tak psychofyzickA a technic- 
kA. Musf byi dAle rozvfjena zAkladnf 
brannA pPfprava, vychova na tradicfch. 
V celAm obsahu zAjmovA brannA £in- 
nosti ve vAech odbornostech pfi zvyAo- 
vAnf urtinnosti brannA sportovnf a bran¬ 
nA technickA dinnosti, vycvikovA, 
trAninkovA, informaAnf a propagartnf 
Cinnosti je tfeba vyuifvat modernf tech- 
niky, zejmAna elektroniky. 

K tomu musf iniciativnA krajskA, 
okresnf a obvodnf vybory organizovat 
sourtinnost s dalAfmi spoleAenskymi 
organizacemi, vyuifvat Cinnost komisf 
pro brannou vychovu a komisf pro 
mlAde2 a tAlovychovu. Musf takA rozvf- 
jet metodickou funkci vybranych ZO 
Svazarmu a jejich klubQ vurti AkolAm 
a dalAfm spoiertenskym organizacfm, 
organ izovat a podporovat soutA2e za- 
mAPenA na rozvoj zAjmovA brannA 
Cinnosti mezi neorganizovanou mlAde- 
21 . 

V organizaci samA je pak tfeba, jak 
zdurazniio 7. zasedAnf, daleko rozhod- 
nAji pfekonAvat ruznorodou spolkovou 
omezenost a vytvAfenf bariAr. Mfsto 
uzavfenAho klubismu, ktery se jeAtA 
u nAkterych odbomostf v nemalA mffe 
projevuje, by mAla urychlenA nastoupit 
dAlnA spotuprAce s jinymi odbornost- 
mi. PfinejmenAfm s tAmi, kterA majf 
obdobny charakter zAjmovA Cinnosti, 
pPfpadnA u kterych se mohou vzAjemnA 
vyu2fvat materiAiovA prostfedky. 

ZAjmovou brannou Cinnostf proffnA 
poiytechnickA vychova, ve kterA je 
nanejvyA 2Adoucf v jeAtA vAtAf mffe 
vyulfvat progresivnf techniky a odbor- 
nA zajiAtAnA technickA propagandy. Ve 
vAech Cinnostech by dAle mAla byt jeAtA 
dQslednAji spojovAna odbomA Cinnost 
s vychovou k tvurCI prAci. Bez progre¬ 
sivnf techniky a tvurdfch pffstupu netze 
do budoucna rozvfjet na vyhovujfcf 
urovni vAtAinu odbornych Cinnostf. Pro¬ 
to se takA musf vyraznAji u vAech 
odbomostf projevit rostoucf vyznam 
upiatrtovAni vAdeckych, zejmAna tech- 
nickych poznatku i zkuAenostf. V jejich 
Affenf, v technicky odbomA propagan- 
dA, v politickovychovnA prAci. 
a v zAjmovA Cinnosti vObec, mnoho 
u2iteCnAho prubA2nA zabezpeCujf sva- 
zarmovskA odbomA Casopisy. 

PostupnA prosazovAnf technickAho 
rozvoje v oblast) modemizace provoz- 
nA materiAlnA technickAho zabezpeCe- 
nf a zejmAna jeho vfivu na piAnovAnf, 
stejnA jako usilf o prosazenf zkvalitnAnf 
pACe o materiAl, jeho udr2bu a provo- 
zuschopnost i odpovfdajfcf ulo2enf ma- 
teriAlu, jeho ochranu, pfedchAzenf Ako- 
dAm Ci neoprAvnAnAmu vyu2fvAnf 
a obohacovAnf, je dnes jednfm z prvofa- 
dych ukolu v celA organizaci. 

RovnA2 v procesu piAnovAnf, rozpo- 
CtovAnf, vyiadovAnf a vyu2fvAnf fi- 
nanCnfch, materiAInfch a investiCnfch 


mikroelektronika *88 
























prostfedkG |e prAv 6 v pfedsjezdovim 
obdobf tfeba prosazovat opatfenl 
k vysoki hospodArnosti a realizaci 
schvAleniho rozpoAtu. 

V ffdicl a organizAtorski prAci, ve 
vystavbi organizace je tfeba dGsledni 
prosazovat a realizovat ziviry 6. spo- 
leAniho zasedinf, hloobiji anatyzovat 
situaci a vytvofit pfedpoklady pro pl- 
nSnf usnesenf a ukolu. FunkcionAfi 
a pracovnlci na vSech stupnfch must 
dflstodniji uplatftovat iivy styk s niiSfmi 
orgAny. 

Novym prvkem v rozvoji organzaAnl 
vystavby je poladavek jejfho intenziv- 
n(ho rozvoje, Aili nepovaiovat poAet 
a nArOst zAkladnfch organizac( za roz- 
hodujlcl kritirium a zamezit administra- 
tivnlmu pffstupu k organizaAnl vystavbi 
a formAInlmu nAboru Alenu. Pokud se 
maj{ zaklidat novi organizace tak jen 
tarn, kde jsou pro to skuteAni kAdrovi 
pod mInky a tam, kde je potfeba rozii- 
fovat branni vychovni pusobenl. 

V samotni Alenski zAkladni jsou 
pak souAasni poladavky ve Svazarmu, 
vysloveni i na 9. zasedAnf, smirovAny 
na dosahovinf vySSI kvality price. 
V zAkladnfch organizaclch by jli ne- 
mily byt prvofadym krltiriem jen poAty 
Alenu, ale pfedev&fm pflstupy k vtastni 
Ainnosti a jejlmu zkvalitninf se zamSfe- 
nfm na cetospoteAensky vyznam 
a prospich i vychovni pGsobenl a to 
nejen na jednottivi Atony, ate do 
iirifho okoff. UrAitou vyjlmkou jsou zde 
elektronickA odbomosti, pfeviini 
z obiasti mikroelektronickych aplikaci 
(vypoAetnl techniky, mikroprocesorG, 
automatizovanych a robotizovanych 
obvodQ a systAmfl), kde je tidouci tyto 
diie rozvijet na vyiil urovni a podte 
danych molnostf je i materiAlnA tech- 
nicky co nejuAetniji zabezpeCtt 
(pffpadnA i z dovozu), a doctHt tak jeSti 
vySSfho zijmu o tuto branni technickou 
Atnnost zejmina mead mlidell. Je to 
nanejvyS nutni nejen z htediska zabez- 
peienf daliich odbornych kidrG pro 
nirodnf hospodifstvf, ate hiavni pro 
potfeby brannosti, kde je tfeba uvaio- 
vat o obsluze nejmodernijSI vojenskA 
techniky vybaveni etektronikou, auto- 
matizovanymi a mikroprocesorovymi 
soustavami. To taki vypiyvi ze ziklad- 
nich ukolO Svazarmu, i nadAie v nad- 
chizejfcfm obdobf providit dQstednou 
pffpravu branni vychovnOho aktivu pro 
zabezpeAenf ukoiG ve prospdch As. 
ozbrojenych si! a zabezpeAit dalif roz- 
voj z&jmovi brarmd Afnnosti. zejmina 
na Akoiich. 

Branni a branni technicki sporty 
rozvfji Svaz pro spoluprici s armidou 
jako prostfedek masovAho branni vy- 
chovndho pusobenl. Sleduje jejich dfl- 
sfednA zamifovinf k potfebAm socia- 
listickiho zpusobu iivota, k formovinl 
moritni polihckych, odbomi technic- 
kych a fyzickych vtastnostf a schopnostf 
uvddomdteho budovatete a obrince 
socialistickA yiasti. 

Svaz pro spoluprici s armidou jako 
spoleAenski dobrovolni organizace 
mi pfi budovinf a obrand socialistickd 
spoleAnosti nezastupiteini postavenl. 
Ptninfm ukolfl Jednotniho systimu 
branni vychovy obyvatelstva a svymi 
zijmovymi branni technickymi a bran¬ 
ni sportovnfmi Ainnostmi pfispfvi 
k rozvoji branni spotoAenskiho iivota 
obAanO naieho soclaiistickiho stitu. 
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Ing. Branislav LACKO, CSc. 
Vypodetni stfedisko TOS Kufim 


Jak vyptyvi ze statlstlk i z prognosticMch anatyz je oblast osobnfch 
mikropoAne&a velmt dynamtcky se rozvqejfchn odvitvfm jak v zahrantAf tak 
i u nis. 

Tento rozvoj zasihne ve sv^ch dOsteddch v i ec hwy obiasti spoteAami^bo 
i hospodifskitM Iivota. Rorfffem osobnfch nukropoAftaAO je pffmym d&sted- 
kem probfhajfcfho procesu etektronizace v naiem nirodnfan hospodifstvf. 
Kromi jiniho vyiaduje, aby se i v pribihu vzdiiivacfho procesu na Skolich 
kaldi iik seznimii s prtecipy price poAitaAe a se zildady algontmuace, 
programovinf a obsluhy. Casto se mluvf o „druhi gramotnosti", col isou 
nezbytni vMontostf budoucfho (ul i souAasniho) Alovika — byt schopen 
pouUvat poAitaAe jako nistroj ve svi kaldodennf praxi. , 

Poznamenejme, le tento prudky vfvoj mi doped i do daliich obiasti. Napf. 
jedno a meri c k i vydavatetstvf vydalo jen v roce 1983 300 knih o mwbnich 

- 1 a v roce 1904 daliich 400 tttulfi. V NSR vycfeizelo v roce 1905 na 45 

.i se hlavni progr a mo v ym vyba venhn a apbkaci mikropo- 


AftaAO. 


K tepSf orientaci vychovy likCi 
a studentu na ikoJAch pfispije jisti 
i zamySlenl nad dafiim vyvojem osob¬ 
nfch mikropoAftaAu, protoie naie bu- 
douci generace by mila byt pfipravena 
na takovi prostfedky vypoAetnl techni¬ 
ky, kteri bude poulfvat v pozdijSi 
praxi, nikoliv na ty, kteri se v ti dobi jil 
nebudou vyribit 

7iktadnf pojmy a rozditenf mikropo- 
AftaAO 

Rychly rozvoj mikropoAftaAO pfivAdl 
s sebou i fadu negativnfch faktorfi. 
Jednfm z nich jsou terminologickA 
potlle v dOsledku zaostivinf tvorby 
pojmu za rychlym technickym vyvojem. 

Proto jsou zde uvedeny zikladnf 
pojmy a pfehfedni rozditenf mikropo¬ 
AftaAu s cllem vytvofit jednotnou po- 
jmovou ziktadnu aiespoA pro uAeiy 
tohoto Alinku. 

MikropoAftaAem rozumfme Sfslicovy 
samoAinny poAftaA realizovany na bizi 
mikroprocesoru, u jehol nAvrhu 
a realizace byfa upiatnina jako rozho- 
dujfci htediska minimilnf ceny a mini- ' 
mAlnl vetikosti, pfi zachovAni dosta- 
teAnych funkAnfch vtastnostf pro potfe¬ 
by uiivateiu. 

U stfediskovych poAftaAO vSech veti¬ 
kosti (malych, stfednfch, velkych) 
a u superpoAltaAu jsou naopak rozho- 
dujtefmi hledisky vetikosti vykonu, ka- 
pacita pamiti a poAet vykonnych peri- 
ferif. MikropoAltaA tvofl funkAni samo- 
statny cetek na rozdil od z abu do vawyc h 
mikroprocesori, kteri jsou nedflnou 
souAAstl stroju a motoru. MikropoAltaA 
je ulivatelsky aplikovatelny, col zna- 
meni, le obsahuje vSechna zaffzenl 
potfebni pro aplikaci a nutni progra- 
movi vybaveni. 

Mikroproceser je integrovany obvod 
vetki nebo vetmi vetki integrace, ktery 
realizuje podstatnou AAst funkci zi¬ 
kladnf jednotky poAitaAe. 

P rogr am ov y kaNculitor ja zafizenf za- 
ioleni na mikroprocesoru a orientova- 
ni na zpracovAnl numerickych vypoAtu 
zadivinfm pfevAini tineirnfch atgorit- * 
mu. Programovinf je provAdino zapa- 


matovinf posloupnosti zmiAknutim 
ttaAitek popf. znakovym symbolick^m 
zipisem zadAvanych vyrazu. Od mikro- 
poAitaAe se liil tim, le nepoulhri 
vyiilho programovacfho jazyka a jeho 
programy nejsou samomodifikujfci. 

MikropoAftaAe Ize difit na skupiny 
podte ruznych hiedisek. 

Podle typu ulivatete 

— Profesion&tni mikropodttade, kteri 
jsou pouifviny ikotenymi pracov- 
ntky pfi vykonu sviho povolinf. 

— Mikropoditade pro volny Cas, kteri 
jsou pouifviny pro zibavu a re- 
kreaAnl programovinf. 

Podte uAelu pouliti dillme profesionAI- 
nf mikropoAftaAe na: 

—mikropoditade pro v&decko-technfc- 
k4 vfpodty, orientovani na feienl 
numerickych probtimQ, kteri jsou 
Aasto doplAoviny prostfedky pro 
graficky vstup a vystup; 
—kancetefskt mikropodftade pro au~ 
tomatizovani zpracovAnl dat v admi¬ 
nistrative, je! zahmuje: 

— vstup a uioienf dat; 

— decentralizovani zpracovAni dat; 

— zpracovAnl textu 

(na tyto o per ace mohou byt nikteri 
kanceiifski mikropoAftaAe specializo- 
vAny); 

—ffdfcf mikropo&tade pro automatizo- 
vani fbani rozliAnych technolog ic- 
kych procesu; 

— mikropo&tadovt vyvojovd syst&ny, 
urAeni pro vyvoj programovibo vy¬ 
baveni mikropoAltaAu a mikroproce¬ 
soru; 

—Skotof mlkropo6lta6e vyuifvani 
u pfedmitO z vypoAetnl techniky; 
—speci&fnf mikropo&lade (napf. mik¬ 
ropoAftaAe pro kosmicky vyzkum, 
vyuAovaci stroje). 

Mikr o p o A ftaAe pro votet *«• Ize podte 
OAetu pouliti rozditft na dvi vetki 
skupiny: 

— speciatizoyani mikropoAftaAe na 
tetovbmf hry; 


— dom&cf podftace pro vfceudefovd 
pouzitf. 

Podle zpusobu provedeni ddifme mik- 
ropodftade na: 

— stolni; 

prenosnd (specidln& upravend pro 
prev£zenf); 

— kapesnf. 

Na zdkladd zpOsobu vfroby rozliSuje- 
me: 

— seriovd vyr£bend mikropodftade; 

— mikropodftade sestavene na ob- 
jedn&vku z prumyslovd vyr&bdne 
stavebnice mikropodftadovdho sy- 
stemu; 

— amatersky navrzend a sestavend 
mikropoditade; 

— mikropodftade sestavend amatdr- 
sky z prumyslovd vyrdbdnd sta¬ 
vebnice mikropodftade. 

Podle Sifky toku dat na sbdrnici roz- 
ddlujeme mikropodftade s Sffkou toku 
dat. 


— 8 bitu; 

—16 bitu; 

— 32 bitu. 

Podle architektury ddlfrne mikropo¬ 
dftade na: 


— mikropodftade se spoiednou sbdr- 
nicl; 


Zkkiacfnf charakteristiky mikriopoditadu 


Rok 

1979 

1985 

1990 (vyhled) 

architektura 

(mikroprocesory) 

1x8 bit 

lx 16b 
+ speciainf 

2—10x16/32b 

reiim pr&ce 
objem operadnf 
pam§ti RAM 

monoprogramovy 

32 aZ 64 kB 

koprocesory 
multiprogramovanf 
126 az 640 kB 

multiprocessing 

512 kB a2 4 MB 

ROM 

2a2 4kB 

32 kB 

128 kB 

Operadnf system 

CP/M 

MS-DOS 

UNIX 

Programovacf 

jazyky 

60% BASIC 

40% Pascal 

35% Ada 


20% Assembler 

25% Basic 

35% C 


20% ostatni 

20% ostatni 

10% Pascal 

grafika 


5% assembler 

10% ostatni 

— 

640x200 

1024x1024 

znaky 

(256x92) 

barevrte 

barevrte 

20fx32zn 

25f x 80zn 

25f x 132 zn 



barevrte 

barevrte 

tisk 

mozaikovA 

mozaikova 

barevna 


tiskama 

tiskarna s 

laserova 



grafickymi 

moinostmi 

tiskarna 

vndjjf parndf 

2x8" disketa 

5,25" disketa 

3.5" disketa 


a 256 kB 

360 kB 

2,5 MB 



5,25" pevny 

5,25" pevny 



disk 20 MB 

disk 140 MB 

+ 

LASER RAM 




s kapacitou 

0,5 GB 

telekomunikadnf 

moinosti 

I 

lokainf site 

LAN 

heterogennf site 




s daikovym 
prenosem dat 

operadnf rychlost 

25 000 op/sec 

0,5 MIPS 

10 MIPS 


— s vlastni architekturou; 

(data tow, maticovd procesorv 
apod.). 

Osobni mikropoditade vydleftujeme 
z profesion&lnfch mikropodftadu 
a z mikropodftadu vyuifvanych ve vol- 
n6m Case jako mikropodftade k indivi¬ 
dual™ potrebd. 

Ndzvem se chce zduraznit: 

— ie tento mikropodftad obsluhuje 
a vyuifvd jedna a tatdi osoba 
a neni potfeba, aby provozovdnf 
zajidfoval tym specialist; 

— ze uzivatel rrte zdroje celdho mik- 
ropodftadovdho system u pri 
vypodtu zcela k dispozici a nesdili 
je s jinymi uiivateli. 

Pozn&mky 

1. U mikropodftade je rozhodujlcl nfzkd 
cena a maid rozmdry. Vykonnost je zde 
relativni pojem podmfndny historicky. 
Tak, jak se s rozvojem vypodetnf 
techniky zvydujf jejf technickd parame- 
try, mule byt urdity vypodetnf vykon 
povazov&n za velky, popr. maly 
v rozdflndm dasovdm obdobf. 

2. Rozvoj vypodetnf techniky rozSifuje 
rozddlenf i podty kategorif u jednotli- 
vych hledisek. Proto i navrzend roz- 
ddlenl je nutno ch&pat jako pracovni. 

3. Jednou z obecnych vlastnostf mikro¬ 
podftadu je univerzdlnost. Proto jednot- 
iiv6 kategorie mikropodftadu je nutno 
chdpat jako neostrd. (Na mikropodftadi 
pro VTV Ize rovndi zpracov&vat texty 
a kancetersky mikropodftad pro decen- 
tralizovand zpracovdnf dat mOie vy- 
sledky prezentovat graficky). 

Vyvoj mikroprocesoru a pamdti 

Mikroprocesor je zdkiadnfm staveb- 
nim kamenem kazddho mikropoditade 
a vtiskuje prfsIuSndmu mikropodftadi 


charakteristickd vlastnosti a urduje je- 
ho vnitrni architekturu. 

Dynamicky rozvoj vyroby mikropro¬ 
cesoru dokumentuje ndsledujfcf sku- 
tednost: prvnl mikroprocesor Intel 4004 
se objevil v roce 1971, ale jii v roce 
1981 pouiil americky prumysl 500 000 
mikroprocesoru a v celdm svdtd bylo 
1 milidn pffstroju se zabudovanym 
mikroprocesorem. 

Ruku v ruce s vyvojem mikroproce- 
sorO postupuje i vyroba polovodido- 
vych pamdtf. Firma IBM (USA) zadala 
od letoSnfho roku montovat do svych 
vyrobku tolik odekdvand megadipy 

— pamdti s kapacitou 1 milidn bitu na 
jednd kremfkovd destidce 5x5 mm 
Vyrobu pamdtf o kapacitd 4 Mb pldnuje 
firma Siemens v novdm zdvodd 
v Pullachu jii v roce 1989. 

Zatlm ovlddajf oblast polovodidovych 
pamdtf japondtf vyrobci s produkcl 
lacinych integrovanych pamdtf 256 kb. 

V roce 1988 se odek£vd osobni 
mikropodftad oznadovany „3M“ (1 MB 

— 1 MIPS — 1 Mpixels) a supermikro- 
podftad oznadovany ,,10-10-10“ (10 MB 

— 10 MIPS — 10 000£). 

Hlavnf smdry rozvoje osobnfch mikro- 
podftadfl 

Prechod na mikroprocesory 32b 
a 64b. 

Zv&tSeni kapacity operadnf pamdti nad 
1 MB. 

Vyuzitl prehravadu CD, DCI, DAT, VI¬ 
DEO DISC, pam&ti OROM, ORAM. 
Zvdtdend komunikadnf moznosti. 

Vstup a vystup mluvenym slovem. 

Prace na vice ulohdch soudasnd. 

Ndstup programovaclho jazyka Ada. 


RozSffenf operadnfho systdmu UNIX. 
Zapojenl osobnfch podltadu do integro- 
vandho zpracovAnf dat a automatizo- 
vand kanceiare. 

Vyuifvaml vysledku vyzkumu urn did 
intelfgence (expertnf systdmy, sys- 
t6my pro podporu rozhodov4nf 
— DDS, CAD + CAM + CAP + CAT 
= CIM, CAI apod.) 

Programovacf jazyky 

Jazyk symbolickych ad res pro vdechny 
typy mikroprocesorO. 

Dosavadnl zndmd jazyky podle ANSI: 

a) generovdnf k6du; 

COBOL 74, FORTRAN 77, Pascal 
PL/M, Ada; 

b) interpretadnfm systdmem; 

BASIC (ndkdy takd jako kompiiator). 


Novd jazyky 

C — systdmovy jazyk vyvinuty v Labo- 
ratorlch firmy BELL rozSffeny dlky 
skutednosti ie operadnf system UNIX 
je napsdn v tomto jazyku. Jedna se 
o dost univerzainf programovacf ja¬ 
zyk. 

FORTH — vznikl v roce 1970 pro 
potfeby ffzenf teleskopu v USA. Po 
jeho uspddndm nasazenf vznikla 
samostatna firma FORTH, ktera jazyk 
zdokonalila a nabfdla k implementaci 
na nejrozSfrendjSf mikroprocesory 8b 
(Z80, i 8080, i 8085) i 16b (i 8086, 
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Na naSem trtiu se v postedni doM objeviio nftkolik typQ mikropofiitafcG o kterA 
je stAle vetkf zAjem. Jsou tak# cenov# p f istu pn# itril vefejnosti. Svfidfii o tom 
zejm#na rycMost, s jakou mizf 2 pultfl pr odeje n DomAcfch potfeb i Tuzexu. 
Mtj r oril f w i ^llm typem m i kropo fif tafi c u ids je v sou6as« d dob# ZX Spectrum 
firmy Sinclair a nAsledujici odvozen# typy (ZX Spectrum Plus, Delta, aid.). Na 
tyto typy mikr op o fift afiO je u ids k dispozici velk# mnoistvf razsihdho 
programovfiho vybaveni, pfekladafii vyiSich programovacfch jazykfl pofilnaje 
a rikaijmi typy her konfie. 


M68000, Z800). JednA se interpre- 
tafini jazyk orientovany na prAci se 
zAsobnikem. Je pouiito notace RPN 
pro zApis vyrazG. 

LOGO — pGvodn# urfieny pro vyuku 
programovAnf iAku zAkladnich §kol 
v USA, byl prepracovan na MIT pro 
jazyk orientovany na snadn# vytvAFe- 
ni grafickych obrAzkO af ui z klAves- 
nice nebo pomoci ukazovacfho za- 
fizeni. 

Smalltalk — pGvodn# vyvinut pro mik- 
ropofiitafie Xerox. VyuifvA principu 
modulArnlho programovAni a soubo- 
ru typizovanych podprogramu. Jsou 
v n#m uplatnfiny principy neproce- 
durAlntho programovAni (co se mA 
provAdfit, ne jak se to mA provAdfit). 

PROLOG — jazyk vybrany japonskym 
projektem 5. generace pofiitatu jako 
zAkladni jazyk pro FeSeni uloh um#l# 
inteligence. Je zaloien na t.z.v. Hor- 
novskych kiauzuiich (podtfida iogiky 
prvniho FAdu a Robinsonov# rezo- 
lufinim principu. 

LISP — jazyk na zpracovAni seznamu 
s vyuiltim LAMBDA kalkul; jazyk 
pGvodn# urfieny na zpracovAni nenu- 
merickych uloh se s vyhodou pouiivA 
pro Fesenf uloh umSI# inteligence. 

Operatni systSmy 

Z ruznych operafinich system0 se pro- 
sadily ve vfitfii mire nAsledujici: 

CP/M Digital Research) 

Prakticky mezinArodni standard 8b 
. mikropofiftafiu na mikroprocesorech 
i 8080, i 8085, Z80 (odhaduje se asi 800 
tis. instaiacf) velmi univerzAIni a porta- 
bilnf. Srovnatelny ekvivaient v CSSR 
MIKROS, vNDR SCP. Obsluha jednoho 
uiivateie bez multiprogramovAnf. Pod- 
minky pro aplikaci: aiespoft 56 kB 
RAM, dv# diskety po 126 kB, klAvesni- 
ce ASCII, obrazovkovy alfanumericky 
displej s kurzorem a mikrotiskArna. 

ISIS (Intel) 

Operafini system rozSifeny dfky mikro- 
pofiitafiovym vyvojovym systAmGm fir¬ 
my Intel pro mikroprocesory i8080 
a 18085. PrAce s jednfm programem. 
Lze ho pouiit i pro i8088. 

REX 80 (Systems and Software) 

Operafini system pro 8b mikroproceso¬ 
ry i8080 a Z80 pracujicf v aplikacich 
reAlrteho fiasu. DodAvA se vfietn# zdro- 
jovAho textu. 

PC-DOS (IBM, pfivodnfi MS-DOS firmy 
Microsoft) 

TAmer mezinArodni standard v oblasti 
16b personAlnich pofiitafiG s mikropro- 
cesorem i8086 v dusledku jeho pouiiti 
u IBM PC. 

CP/M-86 (Digital Research) 

Ji2 ne tak GspASnA replika CP/M od 
tAze firmy pro multiprogramovacl 
prostfedi ai 16-ti uloh pro 16b mikro¬ 
procesory i8086 (pro mikroprocesory 
M 68000 je ve verzi CP/M-86k). Existu- 
je i ve verzi CONCURRENT CP/M-86 
pro aplikaci v reAlnAm fiase. 

UNtX-Microsoft (prodej) — Bell Tele¬ 
phone Lab. (vyvoj) Multiprogramovacl 
operafini systAm 16b mikropofiitafiu 
a mikropofiftaCO PDP11, DEC-VAX 
a dalSfch. Umoiftuje i pouiiti 32b mik¬ 
roprocesoru. 

NovAjSi verze je oznafiovanA Xenix. 


To byl jeden z hlavnich duvodu, profi 
jsem pfi stavbA amatArskAho mikro- 
pofiitafie zvolil koncepci programovA 
kompatibilni s timto profesionAlnA vy- 
rAbAnym mikropofiitafiem, pfestoie 
jsem si vAdorn, 2e jeho obvodovA struk- 
tura neni nejvyhodnAjSi. Neumoiftuje 
totii" bezproblAmovA rozAirovAni sy- 
stAmu, a to zejmAna diky pouiitAmu 
zpGsobu lineArniho adresovAni perife- 
rii. Pfi nAvrhu jsem se sna2il tyto nevy- 
hody potlafiiL Pfineslo to s sebou nAk- 
terA programovA nekompatibility (byla 
zjiAtAna jedna hra, kterA se dA ovIAdat 
pouze oviAdafiem, a jedna, u kterA 
nefunguji CasovA smyfiky tak jak na 
originAlnim mikropofiitafii vzhledem 
k jejich umistAni z fiAsti ve videoRAM 
a z fiAsti v homi polovinA pamAti). 
Z mAho hlediska je to nepodstatnA, ale 
pfesto bude uveden zpusob, jak udAlat 
adresovAni pinA kompatibilni s originAl¬ 
nim obvodovym zapojenim. Je vSak 
tfeba zduraznit, 2e vzhledem k jinA 
filozofii zobrazovAni videoRAM nebu- 
dou odstranAny fiasovA disproporce 
programG, uloienych ve videoRAM. 
Tyto programy zde probihajf o vice nei 
tfetinu rychleji. U 2AdnAho autorovi 
dostupnAho systAmovAho programu 
nebyia zjifitAna nefunkfinost. Pfi stavbA 
jsem se snaiit dGslednA vychAzet ze 
soufiAstkovA zAkladny, dostupnA po- 
fiAtkem roku 1987 v maloobchodni siti. 
Pfesto bylo nutno pouiit dvou typG 
obvodG, kterA v tA dobA nebyly 
k dostAni, a to mikroprocesoru Z80A, 
popffpadA jeho ekvivalentu z NDR 
s oznafienim UA880D, a dynamickych 
pamAti RAM 64kb s dobou pfistupu 
pod 150 ns. 

2. Filosofie nAvrhu 

V dalSIm textu jsou signAly aktivni 
v log. 0 oznafiovAny bud fiarou nad 
nAzvem nebo pismenem N na konci 
nAzvu. SignAI LOAD N je tedy ekviva- 
lentni signAlu LOAD. Protoie uiivanA 
znafieni zAdnAho signAlu nekonfil pis¬ 
menem N, je tato konvence jedno- 
znafinA. Jako videoRAM je oznafiovAna 
druha fitvrtina vnitrni pamAti (adresy 
4000H a l 7FFFH). 

Pfedtim, nei budou popsAny jednotlivA 
obvodovA bioky navrhovanAho obvo- 
dovAho reSeni, bude popsAn zAkaznic- 
ky obvod ULA, pouiivany v originAlnim 
Spectru, a to nikoliv z hlediska zapojeni 
vyvodu, ale z hlediska funkfini fiiozofie. 
VAtSina obvodG totii zastupuje tento 
zAkaznicky 10. ULA zabezpefiuje tyto 
funkce: 


a) Tvorba videosignAlu: 

I) fiitafie adresy displeje, 

II) muttiplexery adresy displeje pro 
dynamickou pamAf RAM (pfepfnAni 
adresy jas/atribut), 

III) zajifitAnf pozdrieni fiinnosti proce- 
soru v okamiiku pfistupu obvodu do 
videoRAM (pozastaveni hodin), 

IV) obvody, generujici fAdkovA a snim- 
kovA synchronizafini signAly, 

V) obvody, tvofici videosignAly Y (jas) 
a U, V (signAly barvy v normA PAL). 

b) Pfipojenf zAkladnich perifArii: 

I) pfipojeni kiAvesnice, 

II) pfipojeni magnetofonu, 

HI) pfipojeni reproduktoru. 


c) Vytvofenl iniciaiizafiniho signAlu pro 

samotny obvod. 

d) GenerovAni hodir to vAho taktu pro 

procesor. 

e) PferuSovAni bAhu mikroprocesoru 

s kmitofitem 50 Hz, maskovatelnym 
pferuAenim pro zabezpefieni periodic- 
kA programovanA obsluhy kiAvesnice 
a vnitfniho pofiitadta fiasu. 

f) Tvorba signAIG RAS a CAS pro 
videoRAM. 


ad a-i) Pfi nAvrhu by mAly b$t obvody 
fiitafiG adresy displeje sestaveny tak, 
aby generovaly bodovy kmitofiet 7 MHz 
(coi je zAroveft zAkladni kmitofiet osci- 
lAtoru mikropofiitafie) a adresu 32 
osmic bodG na fAdek a 192 fAdek na 
snfmek. ZAkladni kmitofiet osciiAtoru 
obvodu ULA je sice 14 MHz, ale tento 
kmitofiet neni v navrhovanA koncepci 
nutny. ZAroveft musi byt vytvAfen signAI 
udAvajici zda adresa je platnA a bude 
se zobrazovat informace z videoRAM 
nebo zda se bude zobrazovat jasovA 
informace, na kterou je nastaven regis- 
tr borderu. SignAI borderu zabirA 6/14 
dAlky TV FAdku a 8/20 TV pGIsnimku. 
Z pfeptnaciho signAlu a z adresovych 
signAIG fiitafie je vhodnA odvodit synch- 
ronizafini impulsy pro TV videosignAJ. 


ad a-ll) dAle je tfeba pfepinat adresu 
bajtu, v nfimi je uloiena jasovA infor¬ 
mace o pfiAtich osmi zobrazovanych 
bodech (udAvajici, 2e pfi log. 1 je 
zobrazovAn jas, odpovldajici jasu in- 
koustu a pfi log. 0 jas, odpovidajici iasu 



papfru) s adresou bajtu, v nAmi je 
uloien odpovidajfci atribut (bajt, ktery 
mA na bitech 0 ai 2 informaci o barvA 
inkoustu, na bitech 3 ai 5 informaci 
o barvd papfru, bit 6 obsahuje informa¬ 
ci o pfijasenf a bit 7 o blikAnf). Kdyi si 
projdeme pfeklad ROM Spectra, zjistf- 
me, ie jasovA informace jsou uloieny 
na adresAch 4000H ai 57FFH, zatimco 
odpoyidajfcf atributy obsahuje pamAf 
v rozsahu 5800H a 2 5AFFH. Odpovfda- 
jfcf urovnA na pffsIuSnych adresAch se 
nastavuji podle nAsledujfcfho rozpisu 
(ADHx — x-ty bit adresy displeje 
horizontAlnA, ADVy — y-ty bit adresy 
dispetje vertikAinA): 


bit AB 

obsah pf) 
jasu 

obsah pfi 
atributu 

ABO 

ADHO 

ADHO 

AB1 

ADH1 

ADH1 

AB2 

ADH2 

ADH2 

AB3 

ADH3 

ADH3 

AB4 

ADH4 

ADH4 

AB5 

ADV3 

ADV3 

AB6 

ADV4 

ADV4 

AB7 

ADV5 

ADV5 

AB8 

ADVO 

ADV6 

AB9 

ADV1 

ADV7 

AB10 

ADV2 

log. 0 

AB11 

ADV3 

log. 1 

AB12 

ADV7 

log. 1 

AB13 

log. 0 (AVSO) 

log. Q (AVSO) 

ABU 

log. 1 (AVS1) 

log. 1 (AVS1) 

AB15 

log. 0 (AVS2) 

log. 0 (AVS2) 


Toto adresovAni je dosti „sloiitA" 
z toho duvodu, ie ULA kvfili minimali- 
zaci fiasovych ztrAt vyAftA obrazovou 
informaci ve strAnkovAm m6du (dol- 
nfch 8 bitO musf byt shodnych). ProtoJe 
navrhovanA feAenf nepozastavuje Cin- 
nost procesoru (viz dAte), nenf spoiu- 
prAce s RAM ve strAnkovAm mbdu 
nutnA. PfinASi to ObvodovA zjednodu- 
Senf, nebof pfepfnAnf adres snadno 
zajistfme dvojitymi multipiexery. Je vi- 
dAt, ie pokud bychom v dobAadreso- 
vAnf pamAti obvodem ULA pfivedii na 
vodide AB13 ai AB15 nikoH konstantnf 
iogickA urovnA, ate vystupy pomocnAho 
tFfbitovAho registru AVSO ai AVS2, 
mohti bychom zfskat osm oblastf pa¬ 
mAti, jejichi obsah by se dal zobrazo- 
vat. 


ad a-ttt/ Kdyi prostud ujeme Aasovacf 
diagram procesoru Z80A, zjistfme, ie 
nemuie nastat situace, kdy by poiAdal 
o pfistup do pamAti CastAji, nei jednou 
za dvA periody hodinovAho signAlu. Pfi 
kmitoStu hodinovAho signAlu 3,5 MHz 
je perioda 286 ns. Procesor tudfi mOie 
pracovat s pamAti maximAlnA jednou 
za 572 ns. Je vidAt, ie pokud bude 
bodovy kmitoAet displeje vhodnA syn- 
chronizovAn $ hodinovym signAlem pro¬ 
cesoru a k dispozici budou dostateAnA 
rychIA pamAti RAM, je moino navrh- 
nout Casovy multiplex pffstupu do 
pamAti tak, a by procesor nemusei byt 
pozastavovAn. Synchronizace se nej- 
jednoduSeji zajistf tak, ie od jednoho 
oscUAtoru se bude odvozovat jak bodo¬ 
vy kmitoAet, tak hodiny procesoru. 
Tudfi programy umlstAnA v obiasti 
videoRAM budou probfhat o nAco 
rychleji, nei na origtnAtnfm mikropo- 
AftaAi, zatfmco programy umfstAnA ve 
zbytku pamAti a rtekomunikujfci s ob¬ 
iasti videoRAM pobAii stejnA rychie. 
Casovy multiplex musf byt v§ak navr- 
ien tak, ie nadfazenou (prforitnf) 
sioikou bude procesor. Informace pro 
di&plej musf byt vyCitAna z pamAti 


okamiitA, jakmHe o pffstup do pamAti 
proctor neiAdA, a to prAvA dvakrAt za 
fityfi hodinovA cykiy. Zobrazenf osmi 
bodu na obrazovce trvA totii prAvA fityfi 
hodinovA cykiy a pro zobrazenf osmi 
bodu je tfeba vyAteni dvou bajtu 
z videoRAM (jas a atribut). Protoie 
vSak nevfme, za kolik cykiu bude toto 
vyCftAni skonCeno (muie byt za dva 
nebo za fityfi), je nutno do cesty obou 
signAlu zafadit po jednom osmibitovAm 
vyrovnAvacfm registru pro synchroni- 
zaci plnAnf registru dispieje. 

ad a-IV/ ZAkiad nAvrhu tAchto obvodu 
byi popsAn v CAsti a-lf/, pouze je tfeba 
zajistit seAteni PAdkovych a snimkovych 
synchronizafinich impulsO pro zfskAnf 
uplnA synchronizaCnf smAsi. 


ad a-V/ Tato that uzce navazuje na 
obvody AasovAho muitiplexu pamAti. 
informace o jasu a atributu je jednou za 
osm period bodoVAho signAlu pfepsA- 
na do registru displeje. Prvnf z nich 
musf byt posuvny registr, ktery je plnAn 
jasovou informacf. Druhy je vyrovnAva- 
cf paralelnf registr. Vystup posuvnAho 
registru musf ovIAdat pfepfnAnf signAld 
jasovA informace mezi inkoustem 
a papfrem v zAvistosti na nastaveni 
pffznakovAho bitu blikAnf. DAle musf 
byt ovIAdAno pfepfnAnf jasu na jas 
borderu (napf. pomocf signAlu SCR). 
To se dA zabezpeAit tfemi tffvstupovymi 
multiplexery, na jejichi vystupech do- 
staneme signAly RGB. SpoleAnA se 
signAlem synchronlzabni smAsi SYNC 
a signAlem pfijasnAnf z nich dostaneme 
v souttovAm analogovAm obvodu kom- 
pletnf videosignAI. Tento videosignAI 
muieme vAst do videovstupu televizoru 
nebo monitoru. Pomocf dalAfch obvodu 
mOieme vytvofit signAly U. V a posiAze 
i kompletnl videosignAI v normA PAL 
(norma SECAM se pro vystup mikro- 
poAftaAe pffliS nehodf vyhledem k ne- 
jednoznaCnosti barevnAho zobrazenf 
vodorovnA CAry o Sffi jednoho bodu). 
Je vSak tfeba uvAift, nenf-li iepSJm 
feAenfm uprava vstupu barevnAho tele¬ 
vizoru pro signAly R, G, B, I (intenzita) 
a SYNC. ObvodovA to vyjde jednoduSe- 
ji a kvalita zobrazenf je iepSf. Takto je 
moino pouift i televizory bez dekodAru 
PAL. 


ad b/ Pfipojenf tff zAkladnfch perffArif je 
vetfce jednoduchA. VSechrty tfi jsou 
totii adresovAny jedfnou adresou 
(FEH-2540). Vstupem klAvesnice je 
homfch osm bitu adresovA sbAmice, 
vystupem pAt bitO, pfipojovanych 
vstupnl instrukcf IN (C), A na dolnfch 
pAt bitu datovA sbAmice. Tato instrukce 
posflA na dolnfch osm bitO datovA 
sbAmice obsah registru C, pomocf 
kterAbo je adresovAna perifAfte, na 
homfch osm bitO je posflAn obsah 
registru B. Je vyuifvAn k postupnAmu 
aktivovAnf tinek klAvesnice. V registru 
B je totii log.O pouze na jednom bitu. 
Rotacl obsahu tohoto registru a perio- 
dickym Ctenfm klAvesnice se dA zjtstit, 
kterA tfaAftko je zmACknuto. K oddAfenf 
homfch osmi bitu adresovA sbAmice od 
klAvesovAho pole staAf pouift osm 
died, zapojenych katodami na sbAmici. 

Magnetofon je pftpojen pomocf dvou 
bitO — vstupnfho a vystupnfho. Sign# 
pfi nahrAvAnf je Aten z bitu D6 datovA 
sbArnice a pfi uklAdAnf na magnetofon 
je informace poeflAna na bit D3. Na bit 
D4 jeposAAna informace, ovtAdajfcf re- 
produktor a na bitech 00 ai D2 aktuAinf 
informace v barvA borderu. Potfebuje- 


me tedy pAtibitovy registr pro zApis dol¬ 
nfch pAti bitO datovA sb^nice. Obou- 
smAmA oddAienf je vhodnA (oddAio- 
vaCe sbAmice). 

ad c/ Pokud nepouifjeme pevnou 
pamAf ROM 16 kB, je nutno po zapnutf 
napAjeni kromA inlcializace procesoru 
jeAtA zajistit pfipnutf stfnovA ROM. V tA 
musf byt program, ktery nahraje do 
prvnfch 16 kB pamAti RAM obsah origi- 
nAlnf pamAti ROM ZX Spectrum. Vyho- 
dou tohoto feAenf je to, ie nemusfme 
pouifvat pouze program z originAInf 
ROM, ale i program upraveny (napff- 
klad opravenA chyby originAInfho pro- 
gramu, obsah pamAti ROM, ktery je 
pod nAzvem ISO ROM nabfzen 
v ZApadnf EvropA, popffpadA do vol- 
nAho mfsta napsat svA vtastnf progra¬ 
my). Nesmfme vSak zapomenout na to, 
ie do ROM se nesmf dAt zapsat 
informace (samotnA originAInf ROM 
zapisuje sama do sebe, mnoho firem- 
nfch programu zapisuje „pfes M ROM 
kvQli znesnadnAnf kopfrovAnf takto 
urn Ale prodlouienAho bioku). Po 
ukonCenf nahrAvAnf se musf stfnovA 
ROM automaticky odepnout a program 
znovu spustit od adresy OOOOH. 


ad d/ Hodinovy kmitoAet Ize nejjedno- 
duSeji zfskat vydAlenfm bodovAho 
kmitodtu displeje dvAma; zfskAme tak 
pfesnA 3,5 MHz. 


ad «/ Pro generovAnf pferuAenf Ize 
s vyhodou pouift snfmkovA synchroni- 
zaCni impulsy. Pfi plAnovanAm dalAfm 
pouiitf vstupu INTN je nutno tento 
signAI pfivAdAt pfes vystup s otevfe- 
nym kolektorem, jinak jej Ize pfipojit 
pffmo. PferuAenf bude sice genero- 
vAno v jinA fAzl vOAi zobrazovAnf obra- 
zovky nei v originAInfm Spectru (tarn je 
generovAno v dobA prvnfho aktivnfho 
fAdku), to ale nemA prakticky vyznam. 


ad M Vzhiedem k tomu, ie je pouiita 
fyzfcky pouze jedna pamAf, je sfgnAI 
RAS generovAn pro ceiou pamAf na- 
jednou. Je tfeba odIIAit signAI RAS pfi 
vstupu procesoru do pamAti (znadeno 
RASP) a signAI RAS, pokud jsou vy- 
AftAna data pro displej (znaAeno 
RASD). SignAI CAS je totii nutno 
generovat pfi kaidAm pffstupu displeje 
do pamAti, zatfmco pfi obnovovacfm 
cykiu procesoru se generovat nemusf. 
OvIAdAnfm signAlu CAS Ize takA jedno- 
duAe pfipojit expanznf pamAf RAM. 


ObvodovA feieni 


ObvodovA feAenf mikropoAftaAe muie¬ 
me rozdAlit do nAkoiika bioku, jejichi 
Airmost i vzAjemnA spoluprAce bude 
dAfe popsAna: 

a) procesor, inicfallzaAnf obvody 
a zesiiovaAe adresovanA sbAmice 
— obr. 1, 

b) AftaA adresy dispieje a multiplexery 
adresy dynemickA pamAti RAM — 

obr. 2 , 

c) dynamickA pamAf RAM, stfnovA 
pamAf PROM, vyrovnAvacf registry dy¬ 
namickA pamAti RAM a multiplexery 
signAIO pro video — obr. 3, 
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d) obvody ffzenl pristupu do dynamic- 
kA pamAti RAM — obr. 4, 

e) obvody pripojeni zgkladnfch periferii 
— obr. 5, 

f) obvody pripojeni TV a MGF — obr. 6, 


rt of 3 


ad a) Procesor je pripojen svou adre- 
sovou sbArnici (vyvody AO ai A15) na 
systAmovy konektor a zgrovefi i na 
vstupy zesilovaCu adresovA sbArnice. 
Jsou realizovgny dvAma obvody 3212, 
ize v§ak pouiit libovolnA neinvertujici 
zesilovaAe s nizkopfikonovymi vstupy 
(napf. 8282, 8286). Datovg sbArnice 
procesoru je pfipojena opAt na sy¬ 
stAmovy konektor a vede na dai§i 
bloky. Aidicf sbernice procesoru je 
opAt celg vyvedena na systAmovy ko¬ 
nektor. Vstupni signgly jsou oAetfeny 
pfipojenim na +5V pres odpory 
15kn. Vystupm signgly jsou zesiieny 
invertory TTL (RFSHN, RON, WRN, 
MREQN, IDREQN) a vedeny ke zpraco- 
vgni do dalAich bioku. Signal RESETN 
je generovAn po pfipojenf napAjecfho 
napAti, po vynulovAni inicializaAnfho 
klopnAho obvodu vystupm' instrukci 
a nebo po zmAAknutf pfepinacfho tlaAit- 
ka RESET. Tento signal vSak musi 
prijit v okamiiku, kdy procesor neko- 
munikuje s pamAti. Po jeho pfichodu se 
totii okamiitA zaAnou mAnit udaje na 
datovA i adresovA sbArnici a do prAvA 
aktivovanA buftky se muie zapsat myl- 
nA informace. CastAjAi je dak pri'pad, 
ie se preptSe nAkolik bunAk, vzAjemnA 
se ligfctch pouze v nAkoiika adresovych 
bitech. Tato situace muie nastat prak- 
ticky pouze pfi ruCnfm aktivovgni sig- 
nglu RESET. Z toho duvodu je signgi 
v tomto pripadA vytvoren teprve po pfi¬ 
chodu prvni ngstupng hrany signgi u 
Ml, Cimi jezajiAtAna jeho sprgvng Aa- 
sovg koincidenoe s aktivaci pamAti. 
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ad b) Zgkladnf souAgstf tohoto bioku je 
oscilgtor 7 MHz, ktery muie byt osazen 
krystalem. Na tento kmitoAet mute byt 
i vydAten kmitoAet jinAho oscilgtoru. 
Jak bylo ale ovAfeno praktickym provo- 
zem, svou stabilitou plnA postaCi multi- 
vibrgtor z invertoru TTL, doladAny na 
kmitoAet 7 MHz kapacitnfm trimrem. 
Vystupnf kmitoAet oscilgtoru je vydAlen 
klopnym obvodem 0 dvAma a pouiit 
jako hodinovy kmitoAet procesoru. 
Tento signgi je takA veden do AitaAe 
horizontglni adresy znaku, tvofenAho 
dvAma obvody 7493 a jednim hradlem 
AND. Tento Aftafi dAli v pomAru 1:224, 
pfiAemi na jeho nejvySAim vystupu je 
stFida signglu 6:8. Jako adresovA vystu- 
py se uzivg Sest vyznamnAjAich bitu. 
NejvyAAi bit je oznaAen BH (border 
horizontglnA). CitaA adresy vertikglnA je 
sestaven ze dvou AftaAu 7493 a klop- 
nAho obvodu typu D. Je inkrementovAn 
signglem RSI (fAdkovy synchronizaAni 
impuls) z duvodu AasovAho zpoidAni 
pruchodu signglu AftaAi. ZpoidAni sig¬ 
nglu na AitaA) adresy muie byt maxi- ' 
mgJnA 140 ns (po dobu, v nii mg signgi 
hodin procesoru urovert log. 0). PamAf 
je totii aktivovAna vidy v dobA, kdy 
jsou hodiny procesoru v urovni log 1. 
Pokud by tots uvadtovanA zpoidAnf by¬ 
lo vAtSf net 140 ns, nemohlo by se 
pouift uvaiovanA feSeni AasovAho mul- 
tiptexu. Pfi zmAnA adresy bAhem vy- 
Aftgni informace z pamAti pro 
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Obr. 1. Procesor, irticializadnf obvody a zesUovade adresovA sbSmice 

(IO1-Z80ACPU, 102 — 7474,103, 4 — 3212,105 — 7404,106, 7 — 7403) 









displej by tato informace nebyla jedno- 
znaCnS. Vy§Sf bity CitaCu adresy disple- 
je musf byt proto inkrementovSny 
v dobS r kdy tato jednoznaCnost nevadi. 
Pokud je to provSdSno pfi zobrazov&ni 
borderu, nevadf pFIpadnS „chyby“, pro- 
toie se na obraze neprojevf. CftaC 
vertikilnf adresy d&lf v pornSru 1:320, 
na jeho nejvy§§fm vystupu (klopny 
obvod) je stPfda 8:12. Tento signal je 
oznaSen BV (border vertikSInS). 

SignSly synchronizatni smSsi jsou 
vytvSfeny dvSma monostabilnimi klop¬ 
ny mi obvody (dvS poloviny obvod u 
74123). SignSly BH a BV jsou obvody 
trvale nulovSny bShem aktivnl doby 
zobrazovSnl videoRAM. Prostrednic- 
tvlm signSIQ ADH3 a ADH4, popf. ADV6 
a ADV7 jsou signify synchronizaCni 
smSsi generovSny pPibliinS v 1/3 aktiv¬ 
nl doby signSlu BH a 1/2BV. CasovS 


ADH2 IJTJTJTJTJTJTJTJTJTJTJTJXn^ 



Obr. 2a. Casovy diagram signdlti BH 
a RSI 


ADV5 

ADV6\ 



ADV7X 


Obr. 2b. Casovy diagram signilu BV 
a SSI 


rozloienf signSlu BH a RSI je na 
obr. 2a, Casovy diagram signSIO BV 
a SSI je na obr. 2b. 


Pro pfepfnSnf adres dynamickS pa- 
mSti RAM a pro vytvofenf signSlu CAS, 
zpoidSnSho za signSlem RAS, je pouii- 
to celkem pSt pouzder dvojic Ctyf- 
nSsobnych multiplexeru. Ctyfi z nicb 
jsou pouiity pro pfepInSnf nr2SI a vy§§{ 
poloviny adresy dynamickS pamSti 
RAM, jedna polovina pStSho je pouiita 
pro generovSnl signAlu CAS. Na tuto 
pozici vyberte nejpomalejSI z pouiitych 
multiplexeru. Adresovy bit AB15 nenl 
na multiplexer veden pffmo, ale pFes 
hradlo EXOR, kterS je vyuiito jako Fize- 
ny invertor. Na jeho druhy vstup je pri- 
pojen signal INIT a pokud je v log.O, 
vystup sieduje logickou tiro vert dru- 
hSho vstupu, tedy AB15. V opaCnSm 
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Obr 3 Pam&f RAM, PROM, vyrovn&vajici registry pamdti a vytvoreni signdlu dispieje 

„ - »0O. «£££ - ^ Wd* ~ ^ 


pripadA je na vystupu negace druhAho 
vstupu, tedy AB15N. Kvuli odstranAni 
vlivu rozdilnAho zpoidAni jednotiivych 
pouzder multiplexer je signAI CAS 
zpo&fovAn jednim invertorem (a zAro- 
veA negovAn pro prime pripojeni na dy¬ 
namic^ pamAti) teprve po pruchodu 
timto multiplexerem. Signal CAS je ge- 
nerovAn vidy, pokud o pFfstup do pa¬ 


mAti poiAdA displej (tzn. pri RASD), 
anebo kdyz neni obnovovaci cyklus pa¬ 
mAti a zAroveA neni vybrAna stinovA 
pamAf ROM. Musi tedy splAovat nAsle- 
dujici rovnici: 


CAS=RASD + CSRAM 

(D 

CSRAM=SP1 -RFSHN 


(INITN+AB15) 

(2). 


jadruji (a ani nemohou) Casovy sled 
signAIG RAS a CAS. Tento je zajiStAn 
zpoidAnim signAlu pfi pruchodu logic- 
kymi obvody a je pFibliinA znAzornAn 
na obr. 2c. SignAI SP1 urAuje, zda 



10 ns 



_ , . —— Tyto rovnice nAm vyjadruji logickou Obr. 2c. Casovysled signdlu RASN 
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procesor komunikuje s vnitrni pamati 
nebo s vnaj§i pamati. Pokud je v urovni 
log.O, komunikuje s vn£j§i pamati, 
v opaCn6m pripada je aktivovana pa- 
vnitrni. Signal SP1 je vyveden na 
konektor mikropoCitaCe a pres odpor 
pfipojen na +5V. Vystupem s otevfe- 
nym koiektorem je moino jej oviadat 
z pripojen£ expanzni desky pamati, 
a tak prepinat pam6f programova. 
VideoRAM je umist&na stale ve vnitfni 
pamati, nelze ji pfemistit do pamati 
expanzni. Celou pridavnou pam6f tak 
Ize pouzit pro programova uCely, popr. 
jako RAMdisk. 

ad c) Vstupy vSech pouzder dynamic- 
kych pamati RAM (kroma datovych) 
jsou zapojeny paralelnfe. Adresov6 
vstupy jsou pripojeny na vystupy multi- 
plexeru adresy dynamicka pamati (sig¬ 
nify ADRO az ADR7), vstupy RASN, 
CASN a WEN jsou pripojeny na sign&ly 
oznaCena stejna. Datov6 vstupy jsou 
pripojeny primo na datovou sbernrci (DO 
az D7). Datov6 vystupy jsou pfipojeny 
na vstupy tfi osmibitovych registru 
s nizkoprikonovymi vstupy (3x MH 
3212). 1036 je pouiit jako vyrovnavaci 
registr pro komunikaci procesoru 
s pamati v cyklu fiteni informace 
z pamati. Informace je do n§j zapiso- 
vana signaiem RASP, jeho vystup je na 
datovou sb&rnici pripojovAn signaiem 
MREQ . RD . CSRAM, tzn. pouze 
v pripadS, ze procesor Cte z vnitfni 
pamati RAM. Obvod 1037 pracuje jako 
vyrovnavaci registr jasu, obvod 1038 
jako vyrovnavaci registr atributu. Do 
vyrovndvaciho registru jasu se informa¬ 
ce zapisuje pri ARDR1 . RASD, do 
vyrovn&vacfho registru atributu sig- 
—naiem ARDR1N . RASD. Informace 
z tfichto registru je synchronnS pfepi- 
sov^na do registru displeje signaiem 
LOADN, popr. LOAD. Registr jasu je 
tvoPen osmibitovym posuvnym regis- 
trem 74165, registr atributu dv§ma 
pouzdry 7475. Vystup posuvnaho regis¬ 
tru ovl4dct vystupni multiplexer jasov6 
informace displeje v zavislosti na na- 
staveni nejvy§Siho bitu registru atribu¬ 
tu. Je-li tento bit (oznaCovany firemni 
literaturou jako priznak ..FLASH") 
v urovni log.O. je pfi vystupu posuvnaho 
registru v log.O pfepnut multiplexer na 
jas papiru, v opafin6m pFipade na jas 
inkoustu. Pokud m£ priznak ..FLASH" 
hodnotu log.1, je periodicky stridan jas 
papiru s jasem inkoustu a tak je 
zabezpeCeno blikanf v zavislosti na 
vystupu obvodu 1044 (dasovaC 555) 
kmitoCtem asi 2 Hz. PrAvS popsanym 
zpusobem se vytvari obrazovA informa¬ 
ce za podminky SCRN = log.O, tzn. je 
zobrazovcina aktivni east informace. 
V opadn^m pripada je zobrazovdn jas 
borderu pfepnutim multiplexed disple¬ 
je signaiem SCRN. 


MREQ 

0 

RD 

WR 

RFSH 


2 * 

0/A 

BH 

BV 

ABU 

AB15 

SPO 

INIT 

RFSH 

SP1 



Obr. 4. Obvody ffzenf pfistupu do dynamickG pam&ti RAM 

(1027.55 — 7400,1024 — 7402,1051^53 — 7404.1026,54 — 7410.1050 — 7454. 
1047, 48 ■— 7474) 
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Obr. 4a. Casovy diagram dinnosti Ndicfch obvodu 


Stinova pam&f ROM je tvofena 
dv£ma pouzdry pamati PROM 74S287. 
Obsahuje program, ktery po spu§t6ni 
nastavi registr videoRAM do oblasti, 
kde ji pfedpokiada ZX Spectrum. 

Pot6 se voia podprogram, pro- 
vaddjicf nahr^ni bloku o deice 16 kB od 
adresy 8000H a po jeho uspeSnam 
nahrani pomoci vystupni operace 
OUT (1), A ..shozeni" inicializaCmho 
klopneho obvodu a tim vygenerovani 
signaiu RESET. Zaroveft jsou vy- 
m§n§ny ob§ poloviny pamati v adreso- 
v6m prostoru mikroprocesoru a po 
skon6en( RESET zaCne program pro¬ 
bihat od prvni instrukce nahran6ho 
bloku dlouhaho 16 kB. V pFipade neu- 


spa§na nahravky je provedena instruk¬ 
ce OUT (2), A. Vygenerovany zapisovy 
signal Ize pouiit po prodlouieni mono- 
stabilnfm klopnym obvodem k upozor- 
ndni obsluhy. Stinova pamfef ROM je 
vybirana za podminky spln§ni vztahu 
INIT . AB15N . MREQ .RD (3) 


ad d) Tyto obvody tvofi vlastna ridici 
east obvodu. nahrazujicich obvod ULA. 
zakladem jsou obvody, zajiSf ujicf Caso- 
vy multiplex pfistupu do pamati a fizeni 
vyrovnavacich registru vystupu pamati. 
Pochopeni jejich Cinnosti je nejsnazSf 
z easovaho diagramu na obr. 4 a. 


Signal MREQ zaCfna vidy se sestupnou 
hranou hodinovaho signaiu procesoru, 
ma v§ak ruznou daiku. V pfipada 
obnovovaciho cyklu trva pouze jednu 
periodu, v pripade etenf k6dfu instrukce 
1,5 periody a v pripada etenf Ci zapr- 
su dat do pamati 2 periody. 
K jednoznaCnemu urCenf easovaho 
okamiiku pfistupu procesoru do pa¬ 
mati je pouiit pomocny klopny obvod 
D, jeni je nastavovan nastupnou hra¬ 
nou signaiu MREQ. Nulovan je vzestup- 
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nou hranou signdlu RASPN, dfmi je 
zajidtdno generovdn! prdvd jednoho 
signdlu RASP na kaidou iddost proce- 
soru o pFfstup do pamdti. Vystupnl 
signal tohoto klopndho obvodu ozna- 
dme QMREQ. Signal RASP je pak 
generovdn podle rovnice: 

RASP = QMREQ . 

(RD + WR + RFSH).* (4) 

Pokud je tedy pamdf aktivovdna 
procesorem pro dteni, je informace 
5tena z vyrovndvaciho registru, protoie 
v dobd, kdy procesor dekd na data na 
datovd sbdrnici, nenf jii pamdf proce¬ 
sorem aktivovdna. Pfi zdpisu obvody 
naopak dekaji na pftchod signdlu WR, 
aby nebyla pamdf zbytednd dlouho 
blokovdna. Obnovovacf cyklus probdh- 
ne bez dasovdho posunu, jen je na 
polovinu zkrdcen. Je tedy zajidtdno, ie 
libovolnd komunikace s pamdti bude 
trvat prdvd po dobu trvdni signdlu 
<j> v urovni log. 1. Pamdf je aktivovdna 
nejdastdji kaidou druhou periodu hodl- 
novdho kmitodtu, zbyvd tedy dost dasu 
pro komunikacl obvodu displeje 
s pamdti. 

Zdkladnfm signdlem, ovlddajlclm da- 
sovdnl obvodu displeje, je signdl pFepi- 
su informace do registru displeje 
LOAD. Je generovdn ze signdlu 2<t> a 
e/4 tak, aby pFichdzel v prvni pulperio- 
dd hodmovdho signdlu (* = log.O) po 
sestupnd hrand 0/4, zadinal se sestup- 
nou hranou 2* a trval asi 40 ns. 
Zpoiddnf je nutnd, aby se ustdlila 
informace ve vystupech ditadu horizon- 
tdini adresy znaku, synchronizace se 
signdlem 2® zabezpeduje plynuly pfe- 
— chod mezi znaky a ddlka trvdnf je pouze 
nezbytnd pro reakci ostatnfch obvodfl. 
Jeho dasovy prfibdh s ostatnimi signdly 
je ukdzdn na obr. 4b. 


2 * liTJTJTJTJTJrtrLTUT^^ 



Obr. 4b. Casovd umfstdni signdlu 
LQADN 


Signdlem LQADN je nastaven dvoubi- 
tovy posuvny registr, tvoFeny dvdma 
klopnymi obvody D (1040) do stavu 
11B. Jeho vstup je trvale pFipojen na 
log.O, informace v ndm je posouvdna 
vzestupnou hranou signdlu RASDN, tj. 
po kaiddm vydteni bajtu pro displej: 
Vyddf bit uddvd adresu vyrovndvaciho 
registru pamdti, do kterdho se bude 
zapisovat a zdrovefl ovlddd muitiptexe- 
ry, pfepinajici adresu jasu na adresu 
atributu (1014, 1015). Niidi bit uddvd, 
zda je jedtd nutno aktivovat vyditdni 
z pamdti pro displej. Po pffchodu LOAD 
se nejprve vydte jas, potd atribut. Vyddi 
bit je oznaden ARDR1, nii8f ARDRO. 
Signdl RASD, uddvajfd, ie s pamdti ko- 
munikujf obvody displeje, je tvofen po- 
die rovnice: 


RASD * NON (QMREQ . (RD + WR 
+ RFSH) ).♦ . ARDRO 
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Signdl RASN, ovlddajici pFfmo odpo- 
vidajici vstupy dynamickych pamdti 
RAM, je generovdn ndsledovnd: 

RAS=RASP+RASD (6). 

Signdl DISP urduje s pFedstihem pul 
periody hodinovdho signdlu, zda se 
bude komunikovat s pamdti kvtili poia- 
davku procesoru (log.O) nebo zda 
o pFfstup iddd displej. Je ddn vztahem: 

DISP = NON (QMREQ . (RD + WR 
+ RFSH)) 

Pro pfepindni multiplexed adresy dy- 
namickd pamdti RAM je vyuiit signdl 
HHA, ktery dostaneme zpoiddnim sig¬ 
ndlu RASN prOchodem tFemi Invertory. 
Zpoiddnf, vznikld na tdchto inverto- 
rech, spoiu se zpoiddnim signdlu na 
muttiplexerech, zcela vyhovuje potfe- 
bdm dynamickych pamdti a nenf tfeba 
jej vyrdbdt pomoci pasivnfch Cldnku 
RC, s jejichi nastavovdnim byvajf poti- 
ie. 

Ddte je tfeba mit k dispozici signdl. 
urdujlci, zda se v dandm okamiiku 
bude zobrazovat jasovd informace vy- 
tvofend obvody displeje nebo jas bor¬ 
der u. K tomuto udelu je vyuiit signdl 
SCR: 

SCR = NON (BV + QBH) (8). 

kde QBH oznaduje vystup klopndho 
obvodu D, na jehoi datovy vstup je 
pfiveden signdl BH a je do ndj pfepiso- 
vdn vzestupnou hranou signdlu LOAD. 
Ten to klopny obvod must totii kom- 
penzovat zpoiddnf signdlu, vznikld na 
vyrovndvacich registrech pamdti. 

Pro ovldddni dynamlckd pamdti RAM 
je nutny jedtd signdl WEN. PFi jeho 
vytvofeni musime mit na pamdti. zda 
mOieme povolit zdpis do ddsti pamdti, 
kde je u normdlniho Spectra umistdna 
pamdf ROM, di nikoliv. Je vhodnd mit 
moinost toto programovd oviddat po¬ 
moci signdlu, ktery si oznadfme SPO: 

WE « RASP . WR (AB14N + AB15N 
+ SPO) (9). 

Signdl SPO muieme totii pfipojit na 
vystup pomocndho klopndho obvodu 
nebo na systdmovy konektor a progra¬ 
movd povolovat moinost zdpisu do 
nejniidich 16kB. V tom pfipadd je vdak 
nutno zakdzat zdpis jedtd pFed odepnu- 
tim stfnovd pamdti ROM. Za podmfnky 
SPO - log.O je zdpis zakdzdn. Na 
obr. 4 jsou jedtd obvody, zajidfujici 
tvorbu signdlu CSRAM podle rovnice 
( 2 .) 


ad e) Kaidy mikropodftod je tfeba 
ndjak oviddat K tomu slouif zdkladnf 
periferie — kldvesnice, zobrazovaci 
jednotka (v naSem pfipadd TV displej), 
zvukovy mdnid pro upozorndnf obsluhy 
a zdkiadni vndjdi pamdf pro uchovdni 
dat (magnetofon). Kldvesnice je pfipo- 
jend obdobnym zpusobem jako 
u Spectra — homich osm bitO posilend 
adresovd sbdrnice je pFes diody zapo- 
jeno na osm vodorovnych Fad kldvesni¬ 
ce (kaidd Fada je rozddlena v polovind 
na dvd). Pdt svislych sloupcu (kaidy 
sloupec md osm tladitek) je zapojeno 
na spodnich pdt bitu vstupnlho portu 
s adresou OFEH. Podrobnd je to viddt 
na obr. 5. Protoie port OFEH je 


obousmdmy a potfebuje mit moinost 
zapamatovat pdt bitu ve vystupnim 
smdru, je pouiito dvou obvodO 3216, 
jednoho 6tyFbitovdho registru 7475 
a jednoho klopndho obvodu D. 


IOREQ 

AB1 

AB2 

A83 

ABi 

AB5 

A86 

AB7 


ABO 


Obr. Sa. Uprava adresace 


TV displej je ovldddn z podstatnd tdsti 
signdly, vytvSFenymi podle obr. 3. 
Z portu OFEH je k nim pfiddna pouze 
informace o barvd borderu (signdly 
BRB, BRR a BRG). Komunikace 
s magnetofonem je realizovdna po 
dvou vodi&ich. Signdl pro nahrdvdni je 
posildn po vodidi oznadendm MGFIN 
a Cten z vodide MGFOUT. Reproduktor 
je ovldddn signdlem REPRO. Pomoci 
zdkiadni logiky jsou vydekddovdny 
oviddaci signdly pro port OFEH takto: 

CSFEH = IOREQ . ABON . AB1 . AB2 
. AB3 . AB4 . AB5 . AB6 . AB7 (10). 

Protoie origindlni Spectrum pouifvd 
k adresovdnf tohoto portu pouze ABO, 
pro pffpadnou plnou kompatibilitu je 
r\utno vybdrovy signdl vytvoFit ndsle¬ 
dovnd: 

CSFEH = IOREQ . ABON 

Lze to jednodude uddtat vynechdnim 
1054 a ndsiedndho Invertoru, nebo za 
tento invertor zapojit pFepinad, kterym 
by se misto pevndho spojeni tohoto 
invertoru s vstupem hradla NAND mo- 
hlo vollt mezi vybdrovym signdlem 
podle (10) a (11). Uprava je zndzomdna 
na obr. 5a. Ddte na obr. 5 je nakreslen 
obvod 8255 (1065), ktery slouif pro 
pfipojeni tiskdmy a ovlddade. Protoie 
obsahuje tfi vyuiitelnd programovatet- 
nd vstup-vystupni brdny, lze jej pouift 
samozfejmd i k daldim aptikacim. Jeho 
brdny jsou do adresovdho prostoru 
zafazeny takto: 


brdna: 

adresa: 

CW (Fidici) 

1CH (26D) 

A 

1FH (31D) 

B 

1EH (300) 

C 

1DH (29D) 


Je viddt, ie adresa portu A je stejnd 
jako adresa vstupnlho portu pro 
oviddad Kempston. Protoie po zapnuti 
napdjeciho napdti je obvod 8255 na- 
programovdn do vstupniho m6du pro 
vdechny brdny, nemusl se ani pFepro- 
gramovdvat, pokud chceme pouift pro¬ 
gram pro tento typ ovlddade. Je vhodnd 
upozornit, ie tento obvod neni souddsti 
origindlnfho Spectra, ale prakticky 
kaidy uiivatel dfive di pozddji narazf na 
nutnost pfipojeni ndjakd , perifdrie 
k mikropoditadi. Z tohoto dOvodu byl 
tento obvod zahrnut pFfmo do zdkiadni 
sestavy navrhovandho mikropoditade. 
Porty jsou vyvedeny na uiivateisky 
konektor. 
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Obr. 5. Pfipojenf periferif 

(1055 — 7400,108,53, 57 — 7404,1056 — 7408,1062 — 7474,1061 — 7475,1058- 
— 7430,1059, 60 — 3205, 1063, 64 — 3216,1065 — 8255) 


ad f) Po ngkolika vyzkouSenych varian¬ 
ts obvodG pripojujicich TV displej 
a magnetofon byly realizov&ny obvody, 
jejichz schema je na obr. 6. Jsou 
z mnoha typu autorem vyzkouSenych 
zapojenf nejjednoduSSi bez snSenf kva- 
lity a zejm6na s nejnii§imi n^roky na 
sefizov&nr. 


Vystup na magnetofon m A mirn6 
zdurazngnf vy§§fch kmitoCtu pri na- 
hrciveini. Toto jednoduch6 opatrenf pri- 
neslo prekvapiv6 zlepSeni spolehlivosti 
Cten! z&znamu na jinych magnetofo- 
nech, nei byl z&znam porfzen. Vstupni 
kompar&tor je realizovdn jednfm inte- 
grovanym komparatorem, ktery m& 


zavedenu maiou hysterii. Za pfedpo- 
kladu kvalitnfho vstupniho sign&lu pra- 
cuje spolehlivg jiz od mezivrcholove 
urovnS signaiu 200 mV. Protoze vstupnf 
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Obr. 6. Pfipojen(teteviznfho dispteje a magnetofonu 


a vystupni signal nejsou spojeny, ne- 
projevuje se vazba mezi nimi (nedo- 
chBzf k rtf). Muieme tedy magnetofon 
provozovat s trvale zapojenymi ob6ma 
kabely a nebo jej spojit pffmo patiko- 
likovou nahrAvacf SftOrou (pozor, 
u nfekterych magnetofonu zahraniCni 
vyroby s jinak zapojenymi vystupy nei 
ud&vA naSe norma nemusf toto propo- 
jeni fungovat, tehdy je nutno pouift 
sluchatkovy vystup). 


TV displej je pfipojen pfes dva 
tranzistory a souCtovou odporovou ma- 
ticf. Jasovy signal je vytvofen sefitenim 
signaiu R, G a B, coi jsou barevna 
sloiky, signaiu pfijasenf BRIGHT. SCR 
a signaiu synchrosmSsi SYNCN. Signal 
pfijasenf je pouiit v souCinu se sig- 
naiem udavajfcfm aktivnf cast obrazov- 
ky z toho duvodu, aby nemohlo dojft 
k pfijasenf borderu. Jednotliva barevna 
sloiky signaiu jsou vedeny z vystupu 
multiplexeru na odporova trimry, kte- 
rymi se nastavf jasovy pffspSvek jed- 
notiivych barev. Signal synchrosmSsi je 
pfi6ftan pffmo bez odporovaho datiCe. 
Signal pfijasenf je pfiCitan pfes tranzis- 
tor p-n-p. Jinak by se totii tfeiko 
dosahlo zobrazenf formatu Spectra, 
protoie tarn signal BRIGHT zvySuje 
kontrast zobrazenf a urovefi £em6 
zustava konstantnf. Settena signaiy 
jsou pfevedeny na malou impedanci 
emitorovym sledovaiem, ktery ma 
v emltoru potenciometr. Vysiedny vi- 
deosignai je odebfran z bCZce poten- 
ciometru v pozitivnf polarita. Potencio¬ 
metr byl pouiit, aby bylo moina vyrov- 
nanf citlivosti ruznych monitoru. 

Reproduktor je pfipojen na signal 
REPRO vOCi +5V pfes potenciometr, 
umoiftujfcf regulaci hlasitosti. Je vhod- 
na pouiit reproduktor o co nejvatSf 
impedanci. 


12 


mikroelektronika *88 


TABULKA t. 1 


I SYSTAMOVY KONEKTOR 

FRB 62 

KLiC: E3 


1 A0 

2 A1 

3 A2 

4 A3 

5 A4 

6 AS 

7 AG 

8 A7 

9 A8 

10 A9 

11 A10 

12 All 

13 A12 

14 A13 

15 A14 

16 A15 

17 DO 

18 D1 

19 D2 

20 D3 

21 D4 

22 D5 

23 D6 

24 D7 

25UCC 

26 GND 

27 IORQN 

28 RDN 

29 MREQN 

30 WRN 

31 HATLN 

32 RFSHN 

33 MIN 

34 BUSAKN 

35 NMIN 

36 BUSRON 

37 INTN 

38 RESETN 

39 WAITN 

400 

41 ABO 

42 SP1 

43 AB2 

44 AB1 

45 CS(10-17)N 

46 CS (20-27)N 

47 CS(28-2F)N 

48 CS (30-37)N 

49 CS (38-3F>N 

50CS3N 

51 CS4N 

62 CS5N 

53CS6N 

54CS7N 

55 DB0 

56 DB1 

57 DB2 

58 DB3 

59DB4 

60 DBS 

61 DB6 

62 OB7 


UZIVATELSKY KONEKTOR 

FRB 30 

KLiC: E5 


1 UCC 

2 GNO 

3 PA7 

4 PAG 

SPAS 

6 PA4 

7 PA3 

8 PA2 

9 PA1 

10 PA0 

11 PC7 

12 PCS 

13PC5 

14PC4 

15 UCC 

16 GND 

17 PC3 

18 PC2 

19 PCI 

20 PC0 

21 PB7 

22 PBG 

23 PBS 

24 PB4 

25 PB3 

26 PB2 

27 PB1 

28 PBQ 

29 UCC 

30 GND 


4. MECHANICKfe PROVEDENl 


Prototyp byl postaven na dvou uni- 
verzainfch deskach s ptoSnymi spoji 
rozm§ru „Velka eurokarta*', seSroubo- 
vanych nad sebe. Na spodnf desce je 
umfst&n kompletnf mikropoCftaC, na 
hornf je tlaCItkova kiavesnice, obvody 
pfipojenf MGF, TV, reproduktor a mik- 
rospinaCe RESET a NMI. Jsou zde taka 
konektory pfipojenf napajeciho zdroje, 
monitoru a magnetofonu. V pffpada 
dalSich dvou kusO, kter6 byty sestave- 
ny. byly obvody 3212 nahrazeny obvo¬ 
dy 8282 a do zfskan4ho prostoru bylo 
umfstano pfipojenf TV a MGF. Oba 
desky jsou propojeny 30-ti vyvodovym 
konektorem FRB, postavenym „nasto- 
jato“. Systamovy konektor je FRB62, 
uzivatelsky FRB 30, oba dva jsou na 
zakladnf desce. Zapojenf jejich vyvodu 
je v tabulce 1. 

Pfi umistanf desek v ma!4 vzdaienos- 
ti nad sebou se sou£astky na spodnf 
desce pffli§ zahffvajf. V prub&hu 2 a i 
3 hodin dojde k pFehfatf a tfm i k havarii 
systamu. Je nutna zajistit nucena chla- 
zenf vzduchem, proudfcim mezi deska- 
mi. K boku spojenych desek je pfipev- 
nan amatarsky zhotoveny vdtrak, 
vhanajfcf vzduch mezi n6. Motorek ma 
z kazetovaho magnetofonu a vaicovou 
vrtulku s listy z PVC fotie. Je napajen 
pffmo z poCftaCovaho rozvodu +5V. 
Toto chtazenf staCi zcela k udrienf 
teploty souCastek v unosnych mezfch 
prakticky neomezena dlouhou dobu. 

Kiavesnice je zhotovena ze 40 spfna- 
cfcb tlaCftek WK 55929 s amatarsky 
zhotovenymf hmatnfky z Eprosinu. Mo- 
hou se pouiit i libovolnd jina spfnacf 
tlaCftka, mikrospinaCe nebo mem- 
branova kiavesnice. 


5. SOUCASTKY, OtlVENi 
A UVEDENl DO PROVOZU 


Jak jit bylo fefieno v uvodu, jedinymi 
typy sou£4$tek, ktera nebyly na trhu 
v dobd realizace prvnfho vzorku (leden 
1987) byl procesor UA880D a pamdti 
typu 4164 s dobou pffstupu pod 150 ns. 
V proto typu byl pouiit procesor 
UB880D, ktery byl vyzkouSen na hodi- 
nov4m kmitofttu 3,5 MHz a pam4ti NEC 
D4164C-12 se zarudenou dobou pffstu¬ 
pu 120 ns. Protoie nenf v siiach bfeina 
vybavenaho amatara urCit mezni kmito- 
Cet procesoru, pffpadny zajemce by 
m§i pouiit procesor se zaruCenym 
meznfm kmitofitem vy§§fm nei 
3,5 MHz. V uvahu pfichazejf typy 
UA8800 a Z80A. Ma-ti n6kdo moinost 
vybrat z vice kusu obvodu UB8800, je 
vhodna to uddlat pomocf mafeni 
zpoidfinf signaiu ffdfcf sbamice za 
hodinovym signaiem a vybrat kusy s co 
nejmenSfm zpoidanfm. Nfekterd sarie 
(znaieno zespodu obvodu) byvajf 
vhodna prakticky ceia, jina jsou zase 
skoro ceia pomalejSf. 


Doba pffstupu u pamftti je vyrobci 
znaCena v desftkach ns za pomlfikou, 
udavajfcf typ obvodu. U konkratnfho 
obvodu je ovlivnana pfedevSfm teplo- 
tou 5ipu. Na tu ma vliv zatfienf vystupG 
a vstupnf signaiy. Pokud budou dodr- 
ieny nasledujfcf rady, je pravdapodob- 
na, ie v po£fta£i vyhiovf i pam§ti 
s dobou pffstupu 150 ns. Autor vyzkou- 
§el ceikem 6tyfi Ctvefice takovychto 




pamAti ocf tPf vyrobcO a vAechny fungo- 
valy bezchybnA. PFedevAfm je nutno co 
nejmAnA zatAiovat datovA vystupy pa¬ 
mAti — v konstrukd jsou pFfpojeny na 
kaidy vystup tfi vstupy obvodu 3212. 
Pfestoie nAkteFf vyrobci udAvajf zatfii- 
tefnost at dva vstupy TTL, nenf vhodnA 
pamAti provozovat takto zatfienA. Date 
je vhodnA vstupy nepftpojovat pFfmo, 
ale pPes sAriovA rezistory rAdu desitek 
ohmu (27 ai 56 ohnnD). DynamickA pa- 
mAf je totii vnitFnf strukturou bKzka 
anafogovym obvodum a tfmto opatre- 
nlm dale zmenAfme jejf pFfkon. 

Stavbu je vhodna zaAft zakladnim 
osciiatorem 7 MHz, jehoi kmitoAet na- 
stavfme AftaCem. Dale oiivfme AftaAe 
adresy dlspleje a obvody vytvoFenf 
synchronizaAnfch impulsu. Pokud nynf 
zapojfme sAftacf obvod pro video, na 
monitoru bychom mAii dostat zaayn- 
chronizovany obraz obdAInfku. Nynf za- 
pojfme procesor, zesilovaA adresovA 
sbArnice, iniclalizadnf obvody a obvody 
Ffzenf prfstupu do dynamick6 pamAti 
RAM. PFi nezasunutam procesoru do 
objfmky zkontroiujeme tvorbu signAlu 
RASD, RAS, LOAD, HHA, ARDR1 a 
ARDR1. Signaiy RAS a RASD by mAly byt 
v2dy dva po signaiu LOAD, pak zase po 
dobu dvou period by nemAl byt signal 
RAS ani RASD aktivovan. Nynf zkontro¬ 
iujeme tvorbu signaiu LOAD. NemAme- 
li k dispozici osciloskop, Ize to udAiat 
i pomocf pFipojenAho TV displeje. Je-li 
datka impulzu, vytvAFenych derivaCnfm 
AlAnkem RC nevyhovujfcf, na dispieji 
nebude obdetnlk fcisty nebo nebude 
vubec. Na misto kondenzatoru 150 pF 
dame kondenzAtor 82 pF a jeho kapaci- 
tu postupnA zvAtAujeme, nakonec 
.pouiijeme kondenzAtor $ asi o 20 ai 
30 pF vAtAf kapacitou, net byla nej- 
menAI vyhovujfcf. VAtSinou to bude 120 
nebo 150 pF. Je-li vAe v poFAdku, zasu- 
neme procesor do objfmky a znovu 
zkontroiujeme signAty vCetnA signAIO 
RASP, a WE Zapojfme multiplexery 
adresy pamAti a zkontroiujeme AasovA 
zppidAnf CAS za RAS. OdpovfdA-li po- 
volenAmu zpoidAnf, udAvanAmu vyrob- 
cem, postupujeme dAle, jinak jej upra- 
vfme vkiAdAnfm nebo vypouAtAnfm su- 
dAho poAtu invertoru ve zpaicfovacfm 
FetAzci. Toto by se ale nemAto stAL Po¬ 
kud zpoidAnf nesouhlasf, zkontroiuje¬ 
me napAjecf napAtf pFfmo na vyvodech 
integrovanych obvodu. ZpoidAnf totii 
zAvisf nejvtee prAvA na napAjecfm na¬ 
pAtf. 

DAle pokrabujeme zapojenfm vyrov- 
nAvacfch registrO pamAti, registry dis¬ 
pleje, muftiplexery displeje a pamAtmi 
RAM a PROM. PFed zasunutfm pamAti 
RAM do objfmek zkontroiujeme na¬ 
pAjecf napAtf (majf +5V na vyvodu 
8 a 0V na vyvodu 16). Nakonec zapo¬ 
jfme obvody pFipojenf periferii a obvod 
8255. Zasuneme pamAti PROM a zapo¬ 
jfme napAjecf napAtf, na obrazovce 
bude nAjaky pravidelny pravouhly 
obrazec (pruhy, Aachovnice) v CemA 
a pFijasenA bflA. Poiovina pamAtovych 
bunAk se po zapnutf napAjecf ho napAtf 
totii pFekfopf do log.O a poiovina do 
tog.1. Obrazec zAvisf na vnitFnf struktu- 
Fe pamAti. 

Po pFipojenf magnetofonu a jeho 
spuStAnf by mAI zafift problikAvat bor¬ 
der, Indikujfcf nahrAvAnf. Mfiieme zku- 
sit nahrAt obsah originAinf pamAti 
ROM, ktery jsme jii dFfve nahrAii 
ze Spectra pffkazem SAVE ..ROM" CO¬ 
DE 0,16384. Po skonCenf nahrAvAnf by 


mAla probAhnout iniciaiizadnf rutina 
a vypsat se uvodnf hlASenf. 

Pokud jsme se AspAAnA dostaii ai 
sem, zbyvA ui pouze nastavit trimry 
jednotlivych barevnych sloiek jasu. DA 
se to udAlat pomocf pomocnAho pro- 
gramu, napFfklad takovAhoto: 

10 FOR 0 TO 1 
20 FOR P=' 0 TO 7 
30 PRINT PAPER PjBRIGHT B,*“ «; 

40 NEXT P 
50 NEXT B 
00 GO TO 10 

Po spuStAnf tohoto programu se na 
obrazovce zobrazt 16 jasovA odliAe- 
nych pruhQ, pFidemi prvnfch osm je od 
CernAho po btly nepFijasenych a druhA 
poiovina je pFijasena. Pomoci odporo- 
vych trimrO nastavfme stupnici Aedl. 
V FAdku 30 zkuAebniho programu 
zmAnfme poCet mezer ze dvou na 
AestnAct a zkontroiujeme konstantnf 
urovert CernA bez f pFi pFijasenf. Pokud 
vizuAlnA nesouhlasf, nastavfme ji 
zmAnou odporu 5,6 kn a 8,2 kn. Tfmto 
je nastavenf poAftaAe skonAeno. 


ZAvArem bych chtAI zdQraznit, ie 
stavba mikVopodftaAe patFf k sloiitym 
zAieiitostem v amatArskyeh podmfn- 
kAch a je vhodnA pouze pro vyspAtA 
amatAry, majfcf dostatednA zkuAenosti 
s Cfslicovou a mikroprocesorovou tech- 
nfkou. Je yhodnA nepodcenit takovA 
„banAlnosti“, jako se zdA rozvod 
a biokovAnf napAjecfho napAtf. Na 
schAmatem to nenf naznaAeno, ale je 
pouiito asi 40 blokovacfch keramic- 
kych kondezAtoru a 15 tantalovych 
kapek 47 jiF. Z vlastnf trpkA zkuAenosti 
dodAvAm, ie to nenf pFehnanA opatfe- 
nf. Nesmf se takA podcenit pruFez 
napajecfch vodifiu, protoie odbAr 
obvodu TTL je znaAny. 


Ten to mikropo£rta£ nebyi od zafiAtku 
stavAn s umysfem postavit kopii Spec¬ 
tra, pokud by se ke stavbA chystal 
nAkdo s tfmto umyslem, doporuAuji mu 
koupit si originAI. Smyslem stavby bylo 
vytyoFit mikropoCftaA jednoduAe rozAf- 
Feny se Airok^mi moinostmi ovIAdAnf 
perifemfch zaFfzenf a pFitom vyuift 
obrovskA knihovny programu na ZX 
Spectrum. 


Vypis pam^tf PROM je na strand 291!! 


PouiilA mtegrovanA obvody 
MH7400 — 31a (1023^7,55) 
UCY7402 — 1 ks (1024) 

MH7403 — 2 k» (>08,7) 

MH7404 — 8 ks (105,8,51^53^7) 
UCY7408 — 2 ks (1022,56) 

MH7410 — 2 ks (1026,54) 

MN7430 — 1 la (1056) 

MH7454 — 1 ks (1050) 

MH7474 — 4 la (102,47^62) 
MH7475 — 3 la (1040,41,61) 
UCY7466 — 1 ks (1025) 

MH7493 — 5 ks (108,10,11,12,13) 
UCY74123 — 1 ks (1021) 


UCY74153 — 7 ks 

(1016,17,18,19,20,45,48) 

UCY74157 — 2 ks (1014,15) 
UCY74165 — 1 ks (1036) 

MH74S287 — 2 ks (1042,43) 

MH3205 — 2 ks (1058,60) 

MH3212 — 5 ks (103^1,36^7,38) 
MH3216 — 2 ks (1063,64) 

MHB8255A - 1 la (1065) 

NE555 - 1 ks (K>44) 

Z80A CPU - 1 ks (101) 

4164-12 — 8 ks 

(1028^8,30,31,32^3,34^5) 

MAB311 —Iks (1040) 


Oprava desky AND-1 
SAPI-1 

Ing. Pavel Svarc 

Pro pouiitf mikropoAftafie SAPI-1 ke 
sbAru a pFedzpracovAnf dat je uAelnA 
pouifvat dvojf jas zobrazovanych textu. 
Pro tento uiei je moinA upravtt desku 
AND-1 taktO: 



PFeruAlt spoj mezi vystupem 8 obvo¬ 
du DID a vstupy 14 obvodu D2C 
a 4 obvodu DID (znaAenf podle 
pruvodnf dokumentace) a na vystup 
8 obvodu DID napojit potenciometr 
3,3 kn (PI) typ TP052C, jehoi jezdec je 
pFipojen na bAzI tranzfstoru VII. Po¬ 
tenciometr je vioien do krytu konekto- 
ru kabeiu KB-06, ktery je souAAstf do- 
dAvkybez dalAfho uchycenf mfsto perti- 
naxovA krytky, hFfdel je zkrAcena 
o 7 mm a osazena pFfstrojovym kno- 
fllkem WF24313. Na ApiAku 28 konek- 
toru TX 514 30-X2 je vyveden vystup 
8 (DID) a na ApiAfcu 26 pak bAze VII. 
Program vystupu znaku na dfsplej 
OUTDIS je tfeba upravit vymazAnfm fn- 
strukce CZIPOZ na adreee 0C9EH (ne¬ 
bo vloienfm 3 instrukcf NOP, pokud 
nenf moino pFeadresovat). PFi vfoieni 
hodnoty COH do MODE je znak zobra- 
zovAn s normAInfm jasem, pFi vfoienf 
00H pak potfafienym jasem, ktery je 
mc^no piynute reguiovat potertciome- 
trem PI. Ostatnf modifikace zobrazenf 
znaku zAstAvajf stejnA (bttkajfcf, 
podtrieny) pro potiaAeny jas. VeHkost 
znaku je nynf jednotnA — 5x7 bod&. 


Obr. 1 . Oprava desky AND-1, tudrrt .. 

vyzna&eny nov4 spoje mikreeiektronika ’88 
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MODULOVA SESTAVA 

PRO MIKROPOClTAC ZX SPECTRUM 


Ing. J. Doleial 

PHspfivek je urten pro ty z4jemce o mikropo£lta6ovou techniku a zejm&ia 
majitele mikropofcitaCe Sinclair ZX-Spectnim, ktefi chtfcjf proniknout do ta^i 
m&fici a reguladni techniky pomoci mikropo£fta£u. 

Proto jsem navrhl, rea tizoi ra l a odzfcouiei nastedujici moduly-jednotfcy, kter6 ie 
schopen pN peOM prto pos tav it i z afei tedwifc. 


adresovdni obvodu MHB 8255 


fkiicl registr CWR 

127 

kanil A 

31 

kandl B 

63 

kan&t C 

95 


K jejich ovl&deinl nenl tfeba rozs£h- 
lych znalosti strojov6ho k6du mikro- 
procesoru Z80. V prvnl f£zi pokusu 
bohatg vystadl znalosti jazyka BASIC. 
Po odzkouSeni modulu a zlskAnl prv- 
nlch praktickych zku§enosti muzeme 
pfistoupit i k pronik&nl tajemstvi pro- 
gramovani ve strojov6m k6du a ti'm 
vlastnl komunikaci s perifernim zarlze- 
nlm urychlit. Modulov4 koncepce 
umoiftuje k modulu portu pripojovat 
dalSI libovoln6 jednotky. 


1. Modul PIO 


Tento modul obsahuje programova- 
telny perifernl obvod MHB8255, ktery 
vytv4rl stykov6 rozhranf mezl mikropo- 
filtafiem a dalSImi obvody. Zapojeni, 
kter6 bylo zverejndno v (1). se ukdzalo 
vhodne i pro tento pffpad a bylo 
pouiito v podstatS beze zm§ny. Proto 
nebudu uv£d6t popis zapojeni ani 
tabulku nastaveni kanaiu. 

Pro toto zapoienl byl ale navrien 
novy oboustranny ploSny spoj o roz- 
mSrech 107,5 x 60 mm, ktery je roz- 
m6irov6 shodny s ostatnlmi moduly. 
Tento modul se pfipojuje ke sbSrnici 
mikropoCItaCe pres konektor WK 
46580, nebo pfes konektor FRB TY 
5176211 a redukci podle (2). Oba 
integrovan^ obvody jsou zasunuty do 
objlmek. Vystupnl konektor pro pfipo- 
jov&nl dal§lch modulu je typu FRB TX 
5183113. 

Schema zapojeni je na obr. 1, roz- 
mistfinl sou6£stek na desce s ploSnymi 
spoji naot»r. 2, obrazec ploSnych spoju 
je na obr. 3 a 4. 

Po pe£liv£ prohlldce ploSnych spoju 
a pnpadn6m promfereni ohmetrem za- 
suneme do objlmek integrovan£ obvo¬ 
dy, modul pripojlme na konektor sb&r- 
nice a zapojlme poCItaC. PoCftaC by m6l 
pracovat nqrmdln€. Nynl nastavfme 
PIO pomoci registru CWR do m6du 
0 a do vystupniho reSmu pftkazem 

OUT 127,128. 

Pak zad£me 11NPUT X: PRINT X 
2 OUT 31: GOTO 1 
RUN 


Zad&v4me stfldavg 0 a 255 a na 


Nynl nastavlme PIO do vstupnlho 


^.dUdvctme Miiudvu u a cjj a na rii IT107 1 cc « — 

vyvodech 41 ai 55 by se mSta stfidavS '’ hka2em OUT127 ’ 155 a za- 

objevovat log. 0 a log. 1. Tlmto zpuso- 


bem ov6Nme spr&vnou funkci kan&lu 
B (adresa 63 a vyvody 1 a i 15) 
a C (adresa 95 a vyvody 27 a 1 35). 


Obr. 1. Schema zapoienl 
PIO 


Seznant n u Uihk 


Potovodit Se: 

101 

102 
T1 

Rezistory: 

R1 

R2 

R3 

R4 


MH3205 

MHB8255 

KC507 


10 LET X = IN 31 : PRINT X 

11 POKE 23692,100 : GOTO 10 
RUN 10 


PAD 
PA 1 
PAS 
PA 3 
PA 4 
PA 5 
PAG 
«o PA 7 
JQ PB 0 
PB 1 
PB 2 
PB 3 
PB 4 
PB 5 
PB 6 
PB 7 
PC 0 
102 PCI 
PC 2 


R1 2.2 kn. TR112 

R2 56 kn, TR 112 

R3 330 kft, TR 112 « 

R4 10 kn, TR112 

KonstrukCni CAsti: 
oboustranny ploSny spoj 
konektor WK465 80 
konektor FRB TX 518 3113 
objfmka 2x 8 vyvodO 6AF497679 
objlmka 2x 20 vyvodu TX 7875401 


A 


B 

8 

C 

ft 

El 

J 

E 3 

£ 

E 2 

101 


0123 t 567 *- 321 Q 4567 *~ 01234567 * 

$eo®ooeooe^oe©eoo#ee^06i 

FRB TX 518 3113 


O O O oil 

._— 


>000000 




j O «o] 

/l,„.WK-4.6g 80 f 
ibo FRB TY 517 62 t 1 o »> 


mikroelektronika ’88 Obr. 2. Rozmist&ni soudSstek na desce s ploSnymi spoji modulu PIO W501 
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Na obrazovce se objevi sloupec nul. 
Budeme-li na vyvody 41 ai 55 stfldav& 
pfivddfet log. 0 a log. 1, vidy se ndm 
objevf na obrazovce itslo odpovldajici 
tbto bin4rnf kombinaci. Stejnfe vyzkou- 
§lme i kan£ly B a C. 


MODUL PAEVODNIkO 
A/D a D/A 


' Na t6to desce je umfstftn osmibitovy 
aproximaCnl pfevodnik A/D a osmibi¬ 
tovy pfevodnik D/A. Stykovy obvod 
MHB8255 $ tftmito prevodniky komuni- 
kuje v z&kladnfm mddu 0 a to pfevod¬ 
nik A/D kandlem A a pfevodnik D/A 
kan&lem B. Kan4l C zust£v£ nevyuiit. 



Popis zapojenf 


Obr. 3. Obrazec pfo&nych spojv desky W501 modutu PtO — strana souddstek 


Pfevodnik A/D, pouiity v tomto zapo- 
jenfi vychdzl ze zapojenl zvefejn4n4ho 
v [4]. Schema zapojenl obou pfevod- 
niku je na obr. 5. Pfevodnik je tvofen 
osmibitovym aproximaCnlm registrem 
MHB1502 (105), ktery generuje vSech- 
ny fldicl signaiy pfevodnlku A/D 
s postupnou aproximaci. Registr je 
flzen hodinovymi impulsy z dvojice 
monostabilnlch klopnych obvodu UCY 
74123 (102). Ve funkci pfevodnlku D/A 
je uiit integrovany obvod MDAC08 
(104). Tento obvod ma zaruCenou dife- 
renci&lnl nelinearitu ±1 LSB a dobu 
ustaienl 85 ai 150 ns. 


•meaeei 


••••r r 







Obr. 4. Obrazec ptoinych spoju desky W501 modutu PtO — strana bezsouMstek 


lOOnJZ'OOn 




MOAC08 




91 

Ml 

mi 

m 


R5 A/D 


105 

MHB1502 


Pro komparaci vstupnfbo proudu 
pfevodnlku A/D a vystupnlho proudu 
pfevodnlku D/A je uiit kompar4tor 
MAC111 (107) se zesilenfm 2.10 5 a 
dobou zpoidfenl 200 ns. ReferenCni 
zdroj napStl +10 V je osazen stabili- 
z&torem MAC01 (103). Pfevodnik A/D 
v tomto zapojenl pracuje v asynchron- 
nlm refimu. To znamen4, is hodinovy 
kmitoCet 1300 kHz je pfiveden na vstup 
CL 105. 

Po pfipojenf pfevodnlku na nap4jecl 
nap4tf se na vyvodu CC objevi log. 0, 
kter4 je pfivedena na vstup S a uvede 
aproximaCnl registr do vychozlho sta- 
vu. Vzestupna hrana hodinov6ho im- 
pulsu ho pak spustl. V pfevodnlku D/A 
se vychozl Clslicovy signal pfevede na 
odpovldajici proud, ktery se pak kom- 
paruje v komparatoru MAC111 (107) se 
vstupnlm proudem pfevodnlku A/D, 
danym jeho vstupnlm napdtlm a odpo- 
rem rezistoru, ur&ujlclho jeho rozsah. 


106-1 106-2 


^1 Obr. 5. Zapojenl modutu pfevodnfkO 
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Vstupni napifovy rozsah je din 
rezistorem R3 a odporem trimru P3, 
kterym se nastavuje zesileni ope- 
racniho zesilovace 108. Rezistor R5 mi 
pouze ochranny charakter. 

Vystupni signil komparitoru, pfive- 
deny na vstup D aproximafiniho regis- 
tru, je nisledujicim hodinovym impul- 
sem pfepsin na siriovy vystup DO. 
Takto je urCen nejvyznamnijSi bit Ctsli- 
coviho signiiu (MSB). SouCasni vystup 
Q7 pfejde do urovni L a ceiy cyklus se 
opakuje. S prichodem deviti nibiini 
hrany hodinoviho impulsu je urden 
nejmini vyznamny bit (LSB). Pfechod 
signiiu CC z urovni H do L ukonfci 
dobu pfevodu a zapt'Se Cislicovou infor- 
maci z vystupu aproximacniho registru 
do vyrovnivacich registru, tvofenych 
dvima MH7475 (101 a 102) kde je 
uchovina po dobu daliich deviti hodi- 
novych impulsu. Doba pfevodu je 
6,6 ms. S prichodem nibiini hrany 
noviho impulsu se aproximaCni registr 
opit spusti a cely proces se opakuje. 
Derivaini Clen, tvoreny rezistorem R6 
a kondenzitorem C4 spolu s MH7404 
(109) vytvifi impulsy do vystupniho 
registru (obr. 7). 

Pfevodnik D/A 

Pfevodnik D/A je na tito desce 
realizovin monolitickym nisobicim Cis- 
licovi-analogovym pfevodnikem 

s proudovym vystupem MDAC08 
(1010). Zapojeni je v druhi Cisti obr. 5. 
Vystupni proud pfevodniku D/A zivisi 
jednak na osmibitovim vstupnim slovu, 
jednak na vstupnim referenfcnim prou- 
du, nastavenim rezistory R9 a RIO. 
Vzhledem k tomu, ie tento obvod jii byl 
popsin v (5), zminim se o n§m velmi 
struCni. Doba ustileni pfevodu je 
150 ns. Proudovy vystup z pfevodniku 
se pomoci rezistoru R11 a operaCniho 
zesilovafie MA741CN (1011) previdi na 
napifovy. Poiadovani vystupni nap&ti 
v bodi 5 nastavime zminou zesiieni 
operaCniho zesilovaCe. Odporovy trimr 
PI umoiftuje definitivni nastaveni vy¬ 
stupniho napiti. Vzhledem k tomu, ze 
stykovy obvod MHB8255 je jii vybaven 
vyrovnivaci pamiti, nemusime ji 
v tomto zapojeni pouiivat. Zdroj refe- 
renfiniho napfeti, osazeny 103, je pro 
oba pfevodniky spoleCny. 

Konstruk£m uspotecttni 

Oba pfevodniky jsou na spoleCni 
desce o rozmirech 107,5 x 60 mm 
s oboustrannymi ploSnymi spoji. 
V horni Cisti desky je umistin konektor 
FRB TY 5176211, kterym se pfipoji 
modul pfevodniku k modulu PIO, lOI 
ai 103, 107 a 109 jsou pfipijeny 
k ploinym spojum, 104 ai 106, 108, 
1010 a lOII jsou zasunuty do objimek. 
Vzhledem k tomu, ia 108 a 1011 maji 
po 2x 4 vyvodech a jsou umistSny na 
desce vedle sebe, Ize pro ni pouiit 
jednu spolecnou objimku. Do mificich 
bodu 1 ai 5 Ize pfipijet dutinky 
z konektoru FRB, nebo pijeci ipidky. 
Vystupni vyvody jsou vytvofeny z plo- 
§ek 5 x 5 mm a Ize do nich zanytovat 
pijeci odka, nebo k nim vyvody pouze 
pfipijet Rozmistini souCistek na des¬ 
ce s ploinymi spoji je na obr. 6, 
prub&hy signiiu na obr. 7, obrazec 
ploSnych spoju na obr. 8. a 9. 
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Obr. 6. RozmistSni soudSstek na desce s ploSnymi spoji W502 pfevodniku 



_ 107,5 ___J 

Obr. 8. Obrazec ploSnych spoju desky W402 pfevodniku — strana soudSstek 



Obr. 9. Obrazec ploSnych spoju desky W502 pfevodniku — strana bez souddstek 


Obr. 7. PrQb&hy 
signSlu v mSficich 
bodech 


0,76 us 


—i i---1_r~ 


© L 
® _n 


6,6 us 


il 








Oiivovanf muieme rozddlit na dv6 
etapy. V prvnf etap6 pracujeme bez 
podltade pouze s mSricIm pflstrojem 
typu AVOMET a s logrckou sondou. 
Desku pFipojlme na napajecl napStl 
+5V, ±15 V. Po pFipojeni napajeclho 
nap&tf zkontrolujeme jejich pfltomnost 
v poiadovanych bodech. 

PFevodnik A/D 

104 ai 106 a 108 zasuneme do 
objimek. Po pFipojeni napajenl zkontro¬ 
lujeme v bod£ 3 pfltomnost hodinovych 
signaiu. Spravnou funkci aproxi- 
mainfho registru si ovSfime v bodd 1, 
kde musl byt hodinovy kmitofiet ddleny 
devfti (viz obr. 7). Spravnou funkci 
derivadnlho Clank u ovCrfme v bodC 2. 

Na vstupech A at D vystupnlch 
registru MH7475 musi byt strfdavy 
prubeh, na vystupech Q A at Q D pak 
log. 0. (privedeme-li na vstup IN libo- 
voln6 kladnd napStf 0 at 10 V, pak 
stPfdavd log. 0 a log. 1). MfePicIm 
pflstrojem zkontrolujeme napdtf +10 V 
v bodd 4. V bodd 6 bychom maii 
namdPit asi 0,7 V. 


Pfevodntk D/A 

IO10 a lOII zasuneme do objimek 
a pFipojlme nap&jecl napdtl. Na vyvody 
5 ai 12 tOlO pFivedeme lo&. 1. Zmdnou 
odporu P2 nastavfme zesllenl lOII tak, 
aby v bod§ 5 bylo vystupnl napCtl 
+10 V. StFfdavym pFiv&d&nlm log. 0 na 
vyvody 5 ai 15 1010 se vystupnl 
analogovd nap&tf v bod6 5 bude 
zmenSovat nebo zv&t§ovat. 

V druhd etapd pFipojime tento modul 
—k oiivendmu modutu PIO a zapneme 
poCItaC. 

PFfkazem OUT 127, 144 nastavime 
kanaiy A a B obvodu MHB8255 do 
vstupnlho a vystupniho reiimu. Dale ji i 
miiteme pracovat s programem, ktery 
byl pouiit pro kontrolu funkce 
MHB8255. 

Pro zkou§enl pfevodnlku A/D pFive¬ 
deme kladnC promdnnd napCtl 0 ai 
10 V na vstup IN a zad&me RUN 10. PFi 
spravnC funkci pfevodnlku se nam na 
obrazovce v zavislosti na vstupnim 
nap$tf objevujl Clsla 0 ai 255. Zm&nou 
odporu P3 nastavime zesllenl obvodu 
tak, aby vstupnlmu nap&tf +10 V odpo- 
vidalo na obrazovce Cislo 255. 

PFi zkouSenl pfevodnlku D/A pFipo¬ 
jime do bodu 5 mCrici pFIstroj, ktery 
pFepneme na rozsah 60 V. Po zadAnl 
RUN (za pFedpokladu, ie mame 
v pam§ti uloien program pro zkouSenf 
obvodu MHB8255) a dfsla 255, by se 
nam vychylka mfePicfho pFIstroje m§la 
ustdlit na hodnotd 10 V. PFesnfeji nasta¬ 
vime zmdnu odporu P2. 

Pro nAsledujici zkouSku propojlme 
svorky IN a OUT, PI nastavime na 
maximainl hodnotu a zad&me nasledu- 
jid program: 

1 OUT 127, 144 

2 INPUT X: PRINT X 

3 OUT 63. X 

4 LET Y - IN 31: PRINT Y 

5 POKE 23692,100 : GOTO 2 

Po RUN zaddme libovolne dlslo 
v rozsahu 0 ai 255. Pofcftad toto Cislo 
vy§ledo pfevodnlku D/A, ten odpovlda- 
jfcl analogovou hodnotu vy$le do pfe¬ 
vodnlku A/D, kde dojde k zpOtnOmu 
pFevodu na Clslicovou hodnotu, ktery 
se zobrazi na obrazovce. PFi sprdvnOm 
nastavenl by rozdll nem&l byl v6t§l nei 
jeden bit. 


Pouittf 

Ve spojenl mikropoCitaCe s pfevod- 
nlky Ize realizovat jednoduchy Cfslicovy 
regulator P nebo PI i v jazyce BASIC. 
Doba vzorkovanl je v jazyce BASIC 
vlivem pFekladu do strojovaho k6du 
del§f (600 jis), pfesto se domnfvam, ie 
pro Fadu aplikacl pln6 vyhovi. PFi prdci 
ve strojovOm k6du mikroprocesoru se 
doba vzorkovanf zkratf a muieme po- 
CttaC pouift i pro pffpady, kde vyiadu- 
jeme rychlejSI odezvu pFi regulaci. 
Pomocl popsanbbo reguiatoru muie¬ 
me oviadat motorek, osvfrtlenl, nebo 
topeni. Vstupnl veliCinou bude napdtl 
z tachodynama, odporu fotoodporu, 
nebo termistoru. 

Mmm6fen6 parametry pfevodnfkO 
v jazyce BASIC: 

pfevod D/A 7,5 ms 

pfevod A/D s tiskem na obrazovku 

60 ms 

pfevod A/D bez tisku na obrazovku 

15 ms 


Seznam souddstek 


Polovodide 


lOI, 102 

MH7475 

103 

MAC01 

104, IO10 

MDAC08 

105 

MHB1502 

106 

UCY74123, 74123 PC 

107 

MAC111 

108, lOII 

MA741CN 

109 

MH7404 

Rezistory 

R1. R2, R9, 

4,7 kO, TR112 


RIO 

4.7 kn, TR 112 


R3, R5, R7, 

R8, R11 

5,6 kfi TR 112 


R6 

4700, TR 112 


KondenzAtory 
Cl, C7 ai C9 

0,1 nF, TK783 


C2, C3 

33 nf, TK783 


C4 

680 pF, TK783 


C5, C6 

150 pF, TK783 


Odporov6 trimry 


PI 

22 kn, TP096 


P2 

10 kQ, TP095 


P3 

3.3 kO, TP095 


Mechanick6 a konstrukdnf sou66ati 
objfmka 2x8 vyvodu 6AF49769 

5 kusu 

pdjeci Spi£ka 


5 kusu 

konektor FRB TY 517 6211 

1 kus 

deska s plo&nymi spojl 

1 kus 


3. Modul RAM IS kB 


Operadnl system Fady mikropoCItaCu 
je umfst&n pevnC v pamCti ROM. Ma to 
sv6 vyhody i nevyhody. Mezi nespornd 
v^hody patFf niiSI cena pamCti ROM 
a ta skutednost, ie po zapnutf pofcltaCe 
a jeho poCateCnf inicializaci mame 
okamiita k dispozici operadnl system. 
Mezi nevyhody patfi to, ie tento ope- 
raftnl system (OS) je uzavfeny celek, do 
ndhoi jii nelze zasahovat. V tomto 
pFfsp&vku PeSIm nahradu pam6ti ROM 
modernlmi statickymi pamdfmi RAM. 



Obr. 10. Schema zapoj&nf modulu RAM mikm ri gktmwika ’88 
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Jsou „posazeny“ do adresnfho prosto- 
ru puvodnl panrteti ROM a lze do nich 
pfesunout operaftnf system. Pfepina- 
5em lze volit butf ROM s puvodnfm OS. 
nebo RAM s upravenym OS. PH umfs- 
t6nf OS v RAM mAme moinost (pffkazy 
POKE) pfepisovat obsahy pantefovych 
bunAk a tfm si napffklad pfedefinovat 
tabulku znakO pro jiny drub plsma, 
odstranit chyby v OS (napF. NMI), nebo 
do volnych a nevyuiitych prostor uloiit 
daiSi programy, napf. pro obsiubu 
tiskAmy, dAinopisu atd. Vzhledem 
k matemu pffkonu panrteti (pfi napAje- 
clm napAtf 2V jednotky ai desitky 
mikroampAr), je na tomto moduiu 
umfsten zAloinf zdroj, sfoieny ze dvou 
kusG knoflfkovych ClAnku 1,5 V. 

Po odpojeni mikropoAftafie od site 
jsou tak parrteti v pohotovostnfm reii- 
mu a program nebo data zOstAvaji 
uloieny v parrteti i nadAle. Po zapnutf 
poAftade jsou opAt k dispozici. 

Popis zapojenf 

V popisovartem zapojenf jsou jako 102 
a 103 pouiity statickA parrteti typu RAM 
6264 S organizaci 8192 x 8 bitu. 
Vzhledem k tomu, ie pro puvodnf 
pamAf ROM je vymezen prostor 16 kB, 
je nutrte tyto panrteti pfepinat po blo- 
cich 8 kB. Parrtef 102 je adresovAna 
v prostoru 0 ai 8 kB, pamAf 103 
v prostoru 8 ai 16 kB. Adresovy deko- 
cter je tvofen pantetf MH74S287 (lOI). 
PFepinA panrteti RAM po 8 kB . dynamic- 
ky btokuje signAI ROMCS a RAMCS. 
Umoiftuje tfi zAkladnf reiimy, kterA 
jsou dAny poCtem parrteti 6264, kterA 
mAme k dispozici. Modui muieme 
osadit pouze jednim kusem, nebo 
dvAma kusy. Pro vAechny tfi druhy 
provozu je jii dekodAr naprogramovAn 
a voif se pouhym pfepojenim vstupu 
E a F dekixteru na tog. 0, nebo tog. 1 
(tab. 3). 

Pfed zapnutfm pofiftaCe je nutrte 
pfedem rozepnout spfnat SI. DekodAr 
pfepne btok panrteti do prostoru 48 ai 
64 kB (popf. 48 ai 56, nebo 56 ai 
64 kB) paraieinA k vnitfnim dynamic- 
kym pamAtem. Pomocnym programem 


Tab. 3. Programovaci tabulka MH74287 


vstup-adresa 

vystup 

rozsah 

dec 

hex 

bin 

4GFEDCBA 

14 Y3 Y2 Y1 

HEX 

0 

00 

0000 0000 

1 

0 

0 

i 

9 

Oat 8kB 

1 

01 

0000 0001 

0 

1 

0 

i 

5 

8a416kB 

2 

02 

00000010 

1 

1 

0 

0 

C 


13 

00 

ooobiioi 

i 

i 

6 

o 

c 


14 

OE 

00001110 

1 

0 

i 

0 

A 

46 at 56 kB 

15 

OF 

00001111 

0 

i 

i 

0 

6 

56 at 64 kB 

16 

10 

00010000 

1 

i 

0 

0 

C 


17 

11 

0001 0001 

0 

i 

0 

i 

5 

8ai 16kB 

18 

12 

00010010 

1 

i 

0 

0 

C 


30 

IE 

oooi iiio 

i 

i 

o 

0 

cT 


31 

IF 

0001 1111 

0 

i 

i 

0 

6 

56 at 64 kB 

32 

20 

00100000 

1 

0 

0 

i 

9 

0 at 8kB 

33 

21 

00100001 

1 

i 

0 

0 

C 


45 

2D 

ooib iioi 

i 

i 

b 

o 

c 


46 

2E 

0010 1110 

i 

0 

i 

0 

A 

48 at 56 kB 

47 

2F 

00101111 

i 

1 

0 

0 

C 


48 

30 

00110000 

0 

0 

0 

0 

0 


255 

FF 

nil iiti 

0_ 

_0 

_o 

_o 

o 
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Tab. 4. Pomocny program pro pfeklad OS 
do RAM ______ 

a) ve strojovAm k6du mikroprocesoru 280: 

8000 21 FF 3F LD HL, 3F FF 
8003 11 FF FF LD DE, FF FF 
8006 01 FF FF LD BC, FF FF 
8009 ED B8 LDDR 

800BC9 _RET__ 

b) v jazyce BASIC 

1 CLEAR 39000 

2 FOR n = 0 TO 11 

3 READ y: PRINT y 

4 POKE (4000 + n), y 

5 NEXT n 

« DATA 33, 255, 83, IT, 255, 255,1, 255, 
2S5, 237,184, 201_ 


(Tab. 4) se blok prvnich 16 kB pamAti 
ROM pfemfstf do posiednich 16 kB 
pamAti RAM (48 ai 64 kB). Sepnutim 
spfnaCe SI (vstup D = tog. 0) dojde 
k pfepnuti dekodAru do rozsahu 0 ai 
16 kB, k dynamickAmu zabiokovAni 
pamAti ROM signAlem ROMCS = log. 1. 
a k odbtokovAni vnAjSich pamAti RAM 
v rozsahu 0 ai 8 a 8 ai 16 kB. 

Po tomto pfepnuti pGvodnf program 
zustane i nadAie v posiednich 16 kB (48 
ai 64 kB). Lze jej smazat nebo nahradit 
jinym programem. Rozpojime-li opAt 
spinaA SI a pfepneme vrtejSi pantef 
zpAt, je nutnA (pokud jsme pfed tfm 
provedti RESET, vypnutf poAitade, ne¬ 
bo doSlo ke zhrouceni programu 
s nAslednou iniciaiizaci poCftaCe) pfe¬ 
dem zadat CLEAR 47000 (posunuti 
RAMTOP a vymezeni prostoru pro 
data). 

V pfedchozim popisu funkce nebyio 
nutrte zasahovat do poCitaAe. Budeme- 
li ale chtft po pfipojeni vnAjSf pamAti 
RAM do prostoru 48 ai 64 kB biokovat 
vnitfni pamAf RAM a v ni zachovat 
puvodnf obsah (data nebo programy ve 
strojovAm kAdu), musime zavAst dy- 
namickA blokovAnf pamAti RAM sig¬ 
nAlem RAMCS. MikropoAftaC ZX-Spec- 
trum na rozdfl od svAho pfedchOdce 
ZX-81 nemA tento signAI vyveden. 
Bude to tedy znamenat zAsah do 
poAttaAe. Tim ziskAme jednou providy 
moinost zabtokovat vnitfni pamAf 
32 kB (fvofenou osmi obvody 4532) 
a pfipojovat si na sbArnici pomocf 
konektoru daiSf btoky pamAti RAM 
nebo EPROM a ty pak libovoinA podle 
potfeby pfepinat PferuSfme spoj ve- 
doucf z vyvodu 3 a 4 1023 (SN74LS32) 
na vyvod 4 btoku pamAti 1015 ai 1022 
(4532) a nahradime ho rezistorem 

680 n. 



Obr. 14. Oprava ZXSpectrum pro 
vyvodenf RAM CS 


vyvod rezistoru smArem k pamAtem 
4532 propojime s volnym kontaktem 
vystupniho konektoru. Pfi pohledu ze- 
zadu na ZX-Spectrum je to v horni fadA 
na levA krajni pozici (obr. 14 a 15). 


All 1 

I RAMCS 

A9 1 

1 A10 

BUSAK 1 

1 A8 

ROMCS 1 

1 RFSH 

AA 1 

| Ml 

45 i 

1 -12 V 

A6 1 

1 *12 V 

47 1 

1 WAIT 

RESET 1 

1 *5V 

BUSftti 1 

1 WR 

U 1 

1 RD 

V 1 

I I0REQ 

Y 1 

1 memAEC 

VIDEO 1 

1 HALT 

0 V I 

1 NMI 

IOROGE 1 

1 inT 

A3 1 

1 DA 

421 

1 03 

AI i 

1 DS 

A0 1 

1 06 

CK 1 

1 02 £ 

OV 1 

1 D1 « 

*3 0 V 1 

3* 

I DO 5 

& 9/1 

1 8 

1 5Vl 

1 07 B 

i* A12 \ 

1 A13 J? 

** 

A14 I 

1 A15 

IB 

1A 


Obr. IS. Vyvedenf RAM CS na konektor 
mikropodftade 



Obr. 16. N&hrada dvou splnadO jednim 
dvoupdkrvym pfeplnadem 


SprAvnou funkci dekodAru a bloko¬ 
vAnf si ovAfime. Do objlmky lOI zasu- 
neme naprogramovanou pamAf 
MH74S287, objlmky 102 a 103 zOsta- 
nou voirte. PamAf MH74S287 je pfepo- 
jena do raiimu 48 ai 64 kB. Po zapnutf 
poAitaAe zadAme pffkaz PRINT PEEK 
23732 + 256* PEEK 23733. Na obrazov- 
ce se objevi 49151, coi je konec pamAti 
RAM. ObjevMI se 65535, je rtekde 
chyba a mAme ji odstranit. Po zasunuti 
obou pamAti RAM se po zadAnf pfed- 
chozfho pfikazu mA sprAvrte objevit 
65535. To znamenA, ie poAftaA s no- 
vou pamAti komunlkuje. 

Po tAto upravA pfi zapojenf vnAjSf 
pamAti do rozsahu 48 ai 64 kB bude 
vidy vnitfnf pamAf v tomto rozsahu 
zabiokovanA a jeji obsah zaehovAn. 
Budeme-li chtft zabtokovat vnAjSf pa¬ 
mAf RAM, rozepneme spfnaA S3. Log. 
1 na uvolhovacfm vstupu SI MH74S287 
zabtokuje dekodAr a vystupy pfivede 
do tfetfho stavu. SpfnaAe SI a S3 lze 
nahradit jednim tffpolohovym dvoupd- 
lovym pfepfnaAem ((Mr. 16), ktery 
umioini v potoze 1 rozsah 48 ai 64 kB, 
v poloze 2 dojde k zabiokovAni vrtejAf 
pamAti a v poloze 3 rozsah 0 ai 16 kB. 










Obr. 11. Rozmfst&nf souddstek na desce s ploSnymi spoji W503 modulu RAM 



Obr. 12. Obrazec ploSnych spoju desky W503 modulu RAM — strana sou&stek 


107,5 


I 



Obr. 13. Obrazec ploSnych spoju desky W503 modulu RAM — strana bez 

sou&Astek 


Jak jii bylo fedeno v uvodnf Ccisti 
popisu, Ize bfehem provozu po£itafie 
mSnit pomocf prfkazu POKE obsah 
vn§j§i pam6ti RAM i po pFepnutf do 
rozsahu 0 ai 16 kB. Zde v5ak u prvniho 
bloku 0 az 8.kB dochdzf k vynulovdnf 


pamfefovych bun6k na adres^ch AO ai 
A4, kter6 je zfejmS zpusobeno neupl- 
nym dek6dov4nim adresov6 sb&rnice 
v ULA, kter& generuje v tomto rozsahu 
signal ridicisbSmice RD/WR. Protoie 
se pFedpoklddci, ie je zde pripojena 


pam&f, ze kter6 se pouze £te, nevadf to. 
Nahradfme-li v§ak pamfef ROM pamgti 
RAM, zaCne to vadit. Nedostatek Ize 
odstranit uplnym dek6dov4ni adresovd 
sbSrnice (vSech §estn £ct vodiCu) 
a zablokov&nim sign&lu WR v tomto 
rozsahu. To v£ak znamend pouift Fadu 
IO navfc. 

Tento problem tee jednoduSe obejft 
tak, ie pro provoz vn£j§( pam&ti RAM 
v rozsahu 0 a i 8 k B zvolfme spfnafcem 
S4 (rozepnut) WR = log. 1) reiim Cteni. 
Reiim zdpisu (S4 je sepnut) zvolfme 
pFepnutim SI do rozsahu 48 ai 56 kB 
Ph'kazy POKE budeme pouifvat pouze 
v tomto rozsahu. M6 to i tu vyhodu, ie 
pFi rozepnutem spfnadi S4 chr£nfme 
obsa h pamfiti pred vymaz&nfm. Signal 
WR tee prepfnat pouze pro prvnf pamgf 
RAM v rozsahu 0 ai 8 kB a druhou mit 
trvale pFipojenou na signal WR 
a zapisovat do nt i v rozsahu 8 ai 16 kB, 
nebo signal WR spinatem S4 pFepfnat 
pro ob€ spoleCnfi a i do druh£ vstupo- 
vat pouze v rozsahu 56 ai 64 kB. V 
tab. 2 jsou uvedeny poiadovan6 funkce 
spina&u. 


Tab 2. 


SI 

strAnka rozsahu 0 ai 16, 48 ai 64 kB 

82 

propojka — nastavenl poziee pamMi RAM, 


jedna, nebo dva kusy 

S3 

zabiokovdnf dekoddru a pamttf RAM 

12 

zablokovanf zSpisu do vndjftfch pamdtf 

■ 

RAM 


Na pozici lOI je ve funkci dekodAru 
pamfit PROM MH74S287 s tFfstavovym 
vystupem. To znameni, ie pFi neaktiv- 
nim signdiu ROMCS a RAMCS rezisto- 
ry R1 a R2 zajiSfujf ha vystupech Y1 
a Y2 log . 0 a pFi neaktivnfm sign&u CS1 
a CS2 rezistory R3 a R4 na vystupu Y3 
a Y4 log. 1. Rezistory R5 ai R8 pFi 
rozpojenych spfnaCfch zajiSfujf na pFf- 
sluSnych vstupech log. 1. Rezistor R11 
umoifluje dobijenl napdjecfho CI4nku 
v dob6 provozu poCfta£e. Diody D1 
a D2 odd&ujf signal ROMCS a RAMCS, 
vystupujfcf z pofiftaCe. Dioda D3 za- 
braftuje vybfjenf Cl&nku pFi vypnutSm 
podftadi a D4 zabraftuje propojenl 
napdjecfho napStf na napdjecf Cl&nek. 

Programovacf tabulka je v Tab. 3. 
Pro reiim 0 ai 16 kB je program na 
adresdch 0 ai 15, a na vstupy E ai 
H obvodu MH74S287 je privederta log. 
0 (spojeno se zemf). 

Pro reiim 8 ai 16 kB je program na 
adresdch 16 ai 31, na vstup E je 
pFivedena log. 1 pFes rezistor R6 a na 
vstupy F ai H log. 0. 

Pro reiim 0 ai 8 kB je program na 
adresSch 32 ai 47, na vstup F je 
pFivedena log. 1 pFes rezistor R6 (voli 
se propojkou popF. preruSenfm plo§n£- 
h’o spoje) a na vstup E a G ai H log. 0. 
Zbyvajfcf prostor na adresSch 48 ai 255 
zQstSvS volny a tee ho pFfpadnS pouift 
pro jinou dekddovacf tabulku. 

Konstruktni provedeni 

lOI az 103 jsou zasunuty v objfm- 
kSch. Ostatni sou£4stky jsou zapSjeny 
v ploSnych spojich. KnoflikovS Stinky 
typu S105 0 16x6 mm jsou zasunuty ve 
dvou pouzdrech o 018/1,5 mm a vy§- 
ce 5,5 mm, ktertt jsou podie obr. 11 
pFiiepena lepidlem EPOXY 1200 
k plo§n£mu spoji. Bronzovy p4sek 
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o tlougfce 0,4 mm, ktery je k z4kladni 
desce pripevnSn dv6ma Srouby M2, 
dill tyto C14nky v pouzdrech a zajigfuje 
jejich vz4jemn6 propojeni. 

PfepinaCe SI, S3 a S4 jsou miniatur- 
nf, a Ize Je zakoupit v NDR. K plo£n4mu 
spoji jsou pfipevnSny uhelnikem 
z hlinikovCho plechu. S3 je tvofen 
propojenlm, popf. pferuSenim plo§n4- 
ho spoje. 

Cely modui RAM je k mikropoCftaCi 
ZX-Spectrum pfipojen konektorem 
WK 46 580, nebo pfes redukci kone¬ 
ktorem FRB TY 517 6211. 

Schema zapojeni je na obr. 10, 
rozmistani souC4stek na obr. 11, obra- 
zec ploSnych spoju na obr. 12 a 13, 
uprava poditade ZX-Spectrum na 
obr. 14 a zapojeni vystupniho konekto- 
ru na obr. 15. Na obr. 16 je schema 
zapojeni jednoho pfepinaCe misto SI 
a S3. 


Programov6 vybaveni 

K tomuto modulu byly odladSny dva 
programy, kterd umoirtuji spoluprAci 
modulu RAM s mikropoCitaCem (pro¬ 
gram v Tab. 5) a demonstruji molnost 
poulitf (Tab. 6). 

Prvni east programu, uvedendho v 
Tab. 5, po zad4n( pfikazu RUN pfeloti 
OS do pamSti RAM v rozsahu 48 al 64 
kB. Tento pfeklad se provede 
i v pripadfe, kdy nenf k mikropoeitaei 
pfipojen vnSjSf modui RAM. Je-li pfipo¬ 
jen, je nutr»£, aby byl spinaC S4 sepnut 
a SI pfepnut do rozsahu 48 al 64 kB. 
Po pfekladu se vytiskne v prvnim 
sloupci desftkovy vypis obsahu bloku 
prvnfch 16 kB, v5etn£ adres, v druh6m 
vypis pfeloiendho bloku vtetnS adres 
+ 49152. Tuto east programu Ize 
kdykoliv pouiit (po zadani RUN 15) ke 
kontrole obsahu pam6ti RAM v pflpa- 
dech, kdy doSlo ke zhroucenl progra¬ 
mu a nem^me jistotu, ie puvodni 
obsah pamSti zustal zachpvan. Pfepi- 
sujeme-li pfikazem POKE ri6kter6 
adresy, muleme je timto zpusobem 
kontrolovat. 


Tfeti east programu (zadani RUN 40) 
porovnava obsah jednotlivych adres 
v rozsahu 0ai16a48ai64kBa tiskne 
odchylky. Ocenime ji v pfipadech, kdy 
nechce mikropoCitafi s modulem spo- 
iupracovat. Tento pfipad mule nastat 
pfi neopatrna manipulaci sS4 v rozsa¬ 
hu 0 al 16 kB, nebo pfi provozu ze 
zaioini baterie (modui k ni byl del§i 
dobu pfipojen a doSlo k poklesu na- 
pdti), kdy mule dojit k chybam na 
nCkterych adresach a potfebujeme 
rychlou kontrolu. Pfi provozu se t61 
ukazalo potfebna v ndkterych pfipa¬ 
dech ponechat poeitae s pfipojenym 
modulem po zapnuti nCkolik desitek 
sekund v klidu a pak s nim teprve 
komunikovat. 


Program v Tab. 6 na jednoduchdm 
pfikladu demonstruje poulitelnost to- 
hoto modulu. Umoiftuje pfedefinovat 
tabulku mCnd Cast© poulivanych sym- 
bolQ a znaeek za pismena Ceskd abe- 
cedy. Zapisuje se stejnd, jak bylo 
uvedeno v pfedchozi easti. Volbou 
bloku pfepinaCem SI Ize volit OS 
s puvodni, nebo s opravenou abece- 
dou. 

Seznam sout&stek 


Potovodite: 

101 

102 
103 

VD1, VD2 

VD4 

VD3 


MH74S287 

6264 

6264 

KA 261, 262, 501 
KY 130 


Rezistory: 
R1, R2 
R3, R9 
RIO 
R11 


470 0, TR112 

5.6 kO, TR112 
12 kO, TR112 

4.7 kO, TR112 


KonstrukCnf 6&sti: 

konektor WK 46580 1 kus 

objfmka 2x 8 vyvodu 6AF49769 1 kus 

objfmka 2x 14 vyvodO TX 787 522 2 kusy 

deska s ploSnymi spoji oboustrannd 1 kus 

knofltkovy Mnek 1,5 V typ S105 2 kusy 

pfepfnai miniaturnf pSdkovy 3 kusy 


Napdjeci zdroj 

Pfesto, ie v minuiych Cislech AR se 
objevila ceia fada nivodO na napajeci 
zdroje, uvadim zde pro upinost popis 
jednoduch6ho a univerzainfho zdroje 
pro napajeni modulu pfevodniku. Po 
uprav§ (vyvedeni napCti +9 V) by bylo 
moina vyuiit ho k napajeni ceiaho 
mikropoeitae©. 


Popis zapojeni 


Popisovany zdroj je osazeny tfemi 
integrovanymi stabilizatory typu 
MA78xx, napajenymi ze dvou samo- 
statnych usmCrhovacich bloku. Tyto 
btoky jsou osazeny dvOma dvojicemi 
usmferfiovacich diod typu KY940 
a KY950. V pfipada vCtSfho odbaru 
a nebezpeCi pfehfivanf je molna opatfit 
je chladiCi. Tyto diody jsou schopny 
s chladiCem sndst proud maximaina 
3 A. 

Jeden blok napaji stabilizovany zdroj 
+5 a +15 V (popf. +9 V), druhy -15 V. 
Dioda D5 indikuje zapnuti zdroje a je 
pfipojena pfes svorku e. 7 na prvni blok 
zdroje. Podle potreby ji Ize pfipojit 
pfimo na vystup nakterOho stabilizgto- 
ru (pfes rezistor). 


Konstrukdni uspof &ddnf 

Napajeci zdroj je umfstan vtetnS 
sffovaho transformatoru na jedng des¬ 
ce s plo§nymi spoji. V uvedena kon- 
strukci byl pouiit sifovy transformator 
s jadrem El 25 x 25 a jeho navfjeci 
pfedpis je na obr. 18. K desce 
s ploSnymi spoji je pfiSroubovan pfes 
distanCni sloupky Srouby M4. Vyvody 
jednotlivych vinuti jsou pfipojeny ke 
svorkam 1 al 6. lOI a 102 jsou 
umistany na jednom spolefcngm chla- 
diCi, 103 je na druhSm. Stabilizatory 
jsou spole£n& s chladiCi pfiSroubovany 
pfes distanCnf sloupky k desce 
s pio§nymi spoji a jejich vyvody jsou 
pffmo pfipgjeny do ploSnych spoju. 


Tat. 5 Pfeklad OS do RAM 


Tab. 6. MovA tabulka snakfi 


t REM PRHOJLD OS DO RAM 

2 CLEAR 39000: PRIMT " PREKLAD OS" 

3 FOR 11=0 TO 11 

♦ READ Y: PRIMT Y{" " 

5 POKE (40000+N),Y 

6 MEXT 11 

7 DATA 33,255,63,17,255,255,1,255,255,237,184,201 

8 RANDOMIZE HSR 40000 
10 PAUSE 50: CLS 

12 STOP 

15 PRIMT "VYPISPAMETI" 

18 PRINT 

20 PRIMT "-- 

22 PRINT 

25 FOR N=0 TO 16383 

30 PRINT N;" "{(N+49152){" "{PEEK 

"{PEEK (M+49152) 

35 NEXT N 

36 STOP 

40 PRINT * TEST CHYBY" 

41 PRINT "-" 

42 FOR N=0 TO 16383 

43 LET C=K+49152 

44 LET A=PEEX N 

45 LET B=PEEK C 

46 IF A=B THEN GO TO 48 

47 PRIMT N{" "{C{" "{PEEK N{" "{PEEK C 

46 NEXT N 

49 PRINT" TISK SI00* 


1 PRINT " NOVA TABULKA ZNAKU" 

2 PRINT "« 
nnauiuH " 

3 FOR N=64776 TO 64847 

4 READ A 

5 POKE N,A 

6 NEXT N 

7 DATA 8,16,56,4,60,68,60,0,0,36,36,0,0,0,0,0.40,16,56,68,120 
,64,60,0,0,8,62,40,62,10,62,6,8,16,0.48,16,16,56,0,8,16,68,68,68, 

£o,4,5£,8,16,56,68,68,68,56,0,8,16,56,68,120,64,60,0,40,16,28,32, 
32,32,32,0 

10 FOB N=65024 TO 65031 
12 READ B 
14 POKE K,B 
16 NEXT H 

18 DATA 8,16,56,68,120,64,60,0 
20 FOR N=65240 TO 65279 
22 READ C 
24 POKE H,C 

26 MVgOT* N 

28 DATA 40,16,28,32,32,32,32,0,80,36,4,60.68.68,60,0,24,24,68, 
68,68,68,56,0,0,16,56,84,16,16,16,0,8,16,68,68,68,68,56,0. 

30 FOR N=65496 TO 65535 
32 READ D 
34 POKE K,D 
36 NEXT N 

38 DATA 40,16,16,56,16,16,12,0,40,16,56,64,56,4,120,0,40,16,12 
4,8,16,32,124,0,40,16,120,68,68,68.68,0,40,16.28,32,32,32,28,0 

40 FOR U =54592 TO 54599 

41 READ X 

42 POKE N,X 

43 NEXT N 

44 DATA 32,68,111,108,101,125,97,108 ' 

46 PRINT 

48 PRINT " PREL0ZEN0 " 

49 PRINT TISK SI 00" 
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Deska s ptoSnymi spoji je umfstftna 
ve skffftce z hllnfkov^ho piechu a pfes 
distanfinf sloupky k nf pFH»roubov4na. 
Na pFednfm panelu je na Iev6 strand 
konektor K1 (pdtikoUkovd magnetofo- 
nov* zAsuvka) pro vystupnf napfitf, na 
prav6 sffovy vypfnafi spotu se sign din ( 
diodou. Pojistka Pj je na zadnf st&nd. 
Schema zapojenf zdroje je na ebr. 17, 
obrazec ploSnych spoju a rozmfstdnl 
soufi4stek na ebr. 19 e 20, celkovd 
sestava na ebr. 21 a vykresy mechanic- 
kych dnu na ebr. 22. 

MdiaMCKe any 


Skffftka, stolen* ze dna a krytu, je 
vyrobena z hlinikovfiho piechu 
a tlouSfoe 1 mm. Po orysovani vy- 
vrtdme vSechny otvory a dfly oh name 
do potFebrtoho tvaru. U dna se nejdffve 
ohnou okraje a pak teprve pFednf 
a zadnf stdna. Kryt je pfiSroubovdn ke 
dnu dvdma Srouby M3 a to shora. 
SkFfftku Ize po dflkladndm mechanic- 
kdm ofiiStfinf mofit v hydroxidu sodndm 
(pozor na poieptdnf pokolky), nebo 
pftslufinfi dfly nastffkat vhodnou nitro- 
barvou (SPRAY). Chladite jsou t6i 
z hlmfkovdho piechu. 

Seznatn soufiidek 


Poiovodifiovfi souCdstky: 
lOI MA7805 

102,103 MA7815 

01, D3 KY940 

02, 04 KY950 

D5 1X51731 

KondenzAtory: 

Cl, C2 500,rf735V,TE986 

C3a2CS 500 nF/15 V, TE984 

Rezistory: 

R 1 2.2 kn, TR 212,151 atd. 

Konstrukdnf dfty: 

sffovy vypfnafi 250 V/4 A — dvoupOfovy 
pojistkovy spodek REMOS 6 A 
trubifikovS pojistka 0,3 A 
chladifi zdroje +5 V. +15 V 
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chladifi zdroje -15 V 
deska s ploSnymi spoji 
skffftka kompletnf 

distanfinf sloupek pod sffovy transformdtor 
4ks 

distanfinf sloupek pod desku 4 ks 
distanfinf sloupek pod s t abilizato r 6 ks 
spojovacf material (Srouby atd.) 
sffovy transformdtor 
flexo&flura tffpramennd 6 A 
konektorovd zdsuvka 


_ t |. n lntii 

. wvereni tepioij 


Jako doplndk k modutu pfevodnfku 
by! navrlen a sestaven snfmafi teptoty, 
kde ve funkci Cidfa by! poulit moderni 
sensor ,fy Siemens KTY10. Vyhoda to- 
hoto sensoru spofifv* v tfimfiF lineAmfm 
prubfihu v rozmezf —50 al +150 °C 
a v pomSrnS velk* zmfinfi odporu 
v tomto rozsahu. 


ProdAvA se ve dvou tffctech pfesnos- 
ti, s odchyikou 5 % a 1 %. Na obr. 28 je 
uvedena kalibraCnf kfivka verse 5% 
jak ji dodAvA fy Siemens, na obr. 27 je 
pro p oro vnA nf uvo de n a kfivka sensoru 
(zfejmd 1 %), ktery jaem mdi k dispozi- 
d. 



Obr. 27. Kalibradnf tabulka senzoru 
KTY 10 — 5%, 1% 
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Obr. 28. Kalibradni kfivka pouii- 
t6ho senzoru 


Seznam sout£stefc 


PofovodidovA soudAstky 
OZ MAA741, MAA741 CN 

Rx KTY10 


Rezistory: 

R1 68 kn, TR162 

R2 12 kn, TR162 

R3 1,8 kn. TR162 

R4 10 kn, TR162 

R5 220 n, TP095 

R6, R7 100 kn, TR161, TR212 

R8 100 kn, TP095 

R9, RIO 3,3 kn, TP095 

KondenzAtory 

Cl 0,1 mF, TK783 

KonstrukCnf 64sti: 
deska s ploSnymi spoji 


PFiklad pouiHf 


Z popsandho modulu Ize ve spojeni 
s modulem prevodniku realizovat jed- 
noduchy mikropoditadovy teplomdr. 

Bude-li obvod nastaven pro rozsah 
0 ai 100 °C, coi bude odpovfdat vy- 
stupnfmu napdtf 0 ai 10 V, bude pak 
1 bit = 0,04 V = 0,4 °C. Konstanta pro 
pFevod bude K = 0,4. Programovd 
z portu predtenou bodnotu vyn&sobime 
touto konstantou a dostaneme teplotu 
jii v °C. 

Pro uvedeny obvod byf odladdn 
program v jazyce BASIC (Tab. 7), ktery 
se skl&dS ze dvou ddsti. 

V prvni ddsti programu (po startu se 
stiskne 0) se dtou hodnoty z portu 
pFevodnfku A/D a uklddajf se pFfkazem 
POKE do pamdti. Vzhledem k tomu, ie 
udaj portu je osmibitovy, stadf k jeho 
uloieni do pamdti pouze jedna adresa 
— z toho plyne, ie je nutnd vidy urditou 
d£st pamdti vyhradit pro data, kterS se 
ukl&daji do adresy 65533 smdrem 




Z uvedenych prubdhu vyplyvd, ie 
v menSim rozsahu teplot (0 ai 100°C) 
—50 ai +50 °C Ize dosShnout velmi 
dobrd linearity. PFi m&Fenf uvedendho 
vzorku byla pro teploty 0°C pouiita 
iedovS tFfSf, pro vySSf toploty ruznS 
tepid voda. K mSFenl teploty jsem 
pouiil termistorovy teplomdr PU 391/1, 
k mSFenf odporu digitdlnf multimetr 
M1T242. Maxim&lnf proud senzorem je 
20 mA. 


Existencf tohoto levndho senzoru {1 
ai 2 DM) zadala novd 6ra mdfeni teplot 
pomoci pFenosnych multimetru a digi- 
tSIntch voltmetru. Stadf totii takovy 
multimetr rozSfFit a zdroj konstantniho 
proudu (stadi na to dva tranzistory) 
a prime, bez jakdkoliv linearizace mdfit 
ubytek napdti na sensoru, ktery uddvd 
teplotu s pFijatelnou pFesnosti. Na 
obr. 23 uvddim jednoduche zapojeni 
pFimo ukazujlcfho teplomdru s jednfm 
operadnim zesilovadem. 

Popis zapojeni 

Sensor KTY10 je zapojen v jednS 
vdtvi Wheastonova mustku, ktery je 
napdjen kladnym napdtlm +15 V. Mus¬ 
tek se zhruba vyvdif rezistory R2 a R3, 
jemnS pak nastavitelnym rezistorem 
R5. Vystupni napdti se pFivSdf pres 
rezistory R6 a R7 na vstup 
2 a 3 operadnfho zesilovade. Rezistor 
R8 slouif k nastaveni zesileni zesilova¬ 
de. Kondenzdtor Cl zvdtSuje stabilitu 
obvodu. Schdma zapojeni je na obr. 24, 
rozmfstSnf souddstek na desce s ploS¬ 
nymi spoji na obr. 25 a obrazec 
ploSnych spoju na obr. 26. 


Nastaveni mustku 


Zmdfime odpor sensoru pFi teplotd 
0°C a pak pokud moino pFi nejvdtSf 
teplotd (80 ai 100 °C). K nastaveni 
obvodu pouiijeme dva nastavitelnd 
rezistory 3,3 kn, typu TP 095 apod. 
Rezistory si oznadime 0°C a napF. 
80 °C. Nastavfme je nejldpe na digrtdl- 
nim ohmetru na odpor, odpovfdajici 
danym teplotdm. Na vstupni svorky 
plo&ndho spoje, urdend pro pFipojeni 
sensoru KTY10, pFipojujeme stFfdavS 
oba rezistory. Na vyvod 6 operadnfho 
zesilovade pFipojime voltmetr a pripo- 
jlme modul na nap&jecf napdtf ±15 V. 
Zmdnou odporu rezistorO R2, R3 a R5 
nastavfme nulovou vychyiku (pro 0 °C). 
Zamdnfme rezistor za druhy odpovfda¬ 
jici napF. 80 °C, a rezistorem R8 nasta¬ 
vfme vystupni napdtf na +8V. Tento 
postup je nutnd ndkoiikrdt opakovat, ai 
jsou odchylky minimdlnf. Definitivnd 
nastavfme obvod po pFipojenf k desce 
pFevodnfku trimrem P3. 


\ 

Konstrukdm uspoteddnf 


Obvod pro mdFenf teploty je umfstdn 
na desce s ploSnymi spoji a je propojen 
s modulem pFevodnfku dtyrpramen- 
nym piochym vodidem. Pro pFipojenf 
sensoru KTY 10 jsou pouiity dutinky 
z konektoru FRB. Dvoupramenny kab- 
iik, na jehoi konci je pFip&jen sensor, 
m£ na druhdm konci dvd Spidky 
z konektoru FRB tak, ie tvoFf miniaturni 
zSstrdku. 



Obr. 25. Rozmfst&nf sou&tstek na des¬ 
ce W505 teplom&ru 
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Obr. 26. Obrazec ploSnych spoju desky 
W505 teplom&ru 
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TakJ.ONslufany progra pro teploty 


1 HEM HQDIMY ,MER£NI TEPLOTY a ULOZENI DO PAMETI 

2 OUT 127,144 

3 CLEAR 45000 :LET B=0 _ 

4 PRINT "ZVOL CTENI - 1,KEBO ZAPIS - 0":INPUT F 

5 IP F*1 THEN GO TO 40 

6 PRINT"ZADEJ ROZSAH PAMETI";INPUT C:PRIKT C.65533-C 

7 PRINT "ZADEJ CAS: HOD INI A MINUTY" 

8 INPUT D:INFUT E 

9 POKE 65535,D:P0KE 65534,E 

10 PRINT * CAS TEPLOTA* 

11 FOR H=D TO 23 

12 FOR M=E TO 59 
1 3 LET B=B+1 

14 LET X=IM 31 

15 POKE (65534-B),X 

16 PRINT B," - ";H ;":";N,0.4*FEEK (65534-B) 

17 PAUSE 3000 

16 IF C=8 THEN STOP 

19 POKE 23692,100 

20 NEXT N 

21 LET E=0 

22 NEXT H 

23 LET D=0 

24 GO TO 10 

35 REM CTEKI PAMETI 

40 PRINT " CAS TEPLOTA" 

41 LET D=PEEK 65535 :LET E=PEEK 65534 

42 FOR H=D TO 23 

43 FOR M=E TO 59 

44 LET B=B-M 

45 PRINT B;" - ";Hi";";M,0.4«PEBK(65534-B) 

46 NEXT I 

47 LET E=0 

48 NEXT H 

49 LET D=0 

50 GO TO 42 


nahoru. V programu to zajiAfuje pffkaz 
CLEAR 45000. Proto pokyn programu 
pro zadAni rozsahu pamAti slouif spfS 
pro definovAni poAtu mAfeni tak (nesmi 
pfesAhnout povoleny rozsah pamAti), 
aby nedoSlo ke zhrouceni programu. 

Hodnoty z portu se Ctou kaidych 60 s 
(nastaveno pfikazem PAUSE 3000). 
ZmAnou tohoto pfikazu ize tuto dobu 
zmAnit. Odchylka po 24 hodinAch iinila 
30 s. Ten to Aas se zAroveft zobrazuje 
v levA AAsti ebrazovky. Proto je nutnA 
po startu programu vzdy zadat sou- 
Aasny 5as v hod. a minutAch, ktery se 
ulo2! na adresy 65534 a 65535, kde je 
k dispozici pro zpAtnA Ateni obsahu 
pamAti. 

DruhA cast programu (po zastavent 
se opAt zadA RUN a stiskne 1) pfeAte 
poAAteAni Aas (zobrazeny v leva AAsti 
obrazovky), a hodnoty od adresy 65533 
smerem nahoru, ktera po vynasobeni 
konstantou se zobraz! v pravA AAsti 
obrazovky jii jako skuteAnA teploty 
v °C. 

Tento program nAzornA demonstruje 
pouiitelnost uvedena sestavy modulu 
s mi kropoArtaAem pfi mAfeni analog o- 
vych hodnot. Vzhledem k tomu, te 
zustAvA kanai C volny, Ize ho vyuift 
napf. pro pfeplnanf ruznych mAficich 
bodu a uvedena sestavy pou2it pro 
snlmani teplot, nebo jinych veliAin pfi 
ruznych mArenich v rozsAhlejSich sy- 
stamech. OsvAdAilo se pouift modul 
RAM 16 kB (popsany v AAsti 3), do 
kterAho (pfepnut do rozsahu 48 at 
64 kB a napajen ze zAloJni baterie) se 
ukiadala data z mafeni. Pfi vypadku 
napajen! poAitaAe tato data zustala 
v pamAti zachovAna. Je ovSem nutnA 
pfed opAtovnym zapnutfm mikropo- 


AitaAe rozpojit S4 (blokovAn! signAlu 
WR. 
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Pripojeni magnetofonu 
SM 260 jako parngfovg 
jednotky k SAPI 

RN Dr. Ing. Jaroslav Lhota 


Vzhledem k tomu, jii delSi dobu 
TESLA ELTOS DIZ nedodAvA k souboru 
SAPI kazetopAskovou jednotku jako 
vnAjSi pamAf, jsou uiivatelA nuceni si ji 
opatfovat sami. Protoie zApis dat na 
pAsku se dAje s dosti velkou rychlost! 
2400 Bd, je lApe zvolit kvalitnAjii kaze- 
tovy magnetofon, jako napf. TESLA 
SM260. Pro pfipojenf magnetofonu Ize 
pouiit ponAkud upraveny kabel KB-05 
dodAvany jako pHsluSenstv! SAPI 
a dAle je nutno doplnit ovIAdaci obvody 
magnetofonu, aby byto moino soft- 
warovA oviAdat funkce „START“ a 
„PAUSE“. 

Pro vstup dat z desky DSM-1 mikro- 
poAitaAe SAPI do magnetofonu je 
vhodnA pouiit vstup LINE (u starSich 
vyrobku ozn. UNIV), ktery povolenym 
rozsahem plnA vyhovl. 

Pfenosu dat z magnetofonu do po- 
citaAe rovnA2 bez uprav vyhovf konek- 
tor DIN (dffve RADIO). 
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Pro dAlkovA ovIAdAn! Ize s vyhodou 
pouift kompletniho elektronickAho 
ovIAdAni vSech funkc!, je2 je v magneto¬ 
fonu pouzito. OvIAdaci sign At z desky 
DSM-1 ve formA urovnA (puvodnA 
slouiici ke spinAnl napAjen! magneto¬ 
fonu) je nutnA pfevAst na signAI ve 
tvaru zApornAho impulsu, nebof pfive- 
denim urovnA na desku pfepinaAu by 
byla blokovAna Ainnost ostatnfch tla- 
Citek pro ruAnl ovIAdAni. To je realizo- 
vAno jednlm integrovanym obvodem 
123 N (v posiednl dobA byla dostupnA 
sovAtskA verze K 155AG 3) v zapojen! 
pole obr. 1. CasovA konstanta obvodu 
je nastavena tak, aby po pfivedeni 
nulovA urovnA na vstup A byl vygenero- 
vAn zAporny impuls dAlky asi 0,2 ms, 


coi plnA vyhovi ke spuStAni pfisluSnA 
funkce. SignAI je pfiveden paralelnA 
k ovIAdacim tlaAitkum a neomezuje 
jejich pouifvAni. Pro pfenos ovIAdacfch 
signAlu ze SAPI do magnetofonu je 
pouiito volnych ApiAek 1 a 4 konektoru 
LINE. Vlastn! obvody podle obr. 1 jsou 
umistAny uvnitf magnetofonu a jsou 
pfipojeny k ovIAdacim obvodum mag¬ 
netofonu a zAroveft napAjeny pfes 
konektorovou zAstrAku na desce DO 
oznaAenou 01. Tento konektor se na- 
chAzi za mechanikou magnetofonu 
a Alsla ApiAek na obr. 1 odpovfdaj! 
jejich pofad! na konektoru, poAltAno 
shora. 


I xi 
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l 06 '■ 

I 22 
125 
l 27 
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kabel 

KB-05 


X 


I_I 

konektor FRB 
deska DSM-1 
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I_i 

konektory SM260 


Obr. 2. 

Na obr. 2 je nakreslena potfebnA 
uprava kabelu KB-05. PHpojeni magne¬ 
tofonu je vyfeAeno bez zAsahu do jeho 
elektroniky a umoirtuje tak bez omeze- 
nf i jeho bAinA poulivAnl. 



Ing. TomdS Navr&til 


Vyhody sdriovdho propojenl mikropodftade s perifdrii nenf tfeba zvlddf 
zdurazhovat. 

Pro pFevod paralelniho tvaru na sdriovou posloupnost a naopak se zpravidla 
pouifvd obvodu typu USART. Protoie se v$ak jednd o pomdrnd drahou 
souddstku VLSI a jeji pouiitf k dandmu udelu by bylo urditym pfepychem, bylo na 
strand displeje pro pFevod pouiito zapojenf sestdvajlcl ze dvou 10 stFednf husto- 
ty integrace. 


Na strand mikropodftade je pFevod 
reSen jednoduchym programem. Tento 
podprogram prevddf obsah akumu- 
Idtoru na sdriovou posloupnost impulsu 
tak, ie jednotlive blty maji tvar podle 
obr. 1 . Impuls pFendSejicf hodnotu 
logickd nuly md tvar 1, impuls pFendde- 
jlci hodnotu logickd jednidky md tvar 2. 
Pri kaiddm voldni podprogramu je tedy 
vystldna sekvence osmi impulsu. 

Z duvodu maximdlni jednoduchosti 
jsou vypudtdny pomocnd bity. Funkci 
start bitu prebird prvni impuls. 

Impulsy se vysllajl jednfm z vyvodu 
brdny C obvodu 8255. Pro vykonovd 
zesilenl je pouiito zapojenf z obr. 2. 

Sdriovou linkou jsou impulsy privdddny 
na vstup optodlenu (obr. 3). Rezistor 
—R1 siouif k nastavenf proudu smydky 
(20 mA). Dioda D1 chrdnf proti pfepdlo- 
vdnf a dioda D2 zvySuje imunitu proti 
rudenf tfm, ie propustf pouze impulsy 
o napdtf vdtdfm nei je Zenerovo napdtf. 

Tranzistor T1 spolu s polovinou lOI 
a rezistory R2 ai R5 tvoFf tvarovacf 
obvod impulsu, kterd jsou po prechodu 
linkou zpravidla tvarovd deformovdny. 
Upravend impulsy jsou pFivedeny na 
vstup zapojenf (obr. 4) pro pFevod 
sdriovd posloupnosti na paralelnf tvar 
(102 a 103) (pFihlddka o autorskd 
osv&ddenf PV 6076-85). 

Celem prvnfho impulsu se spustf 
monostabilnf obvod 2a. Vystup Q obvo¬ 
du 2a zmdnf droved H na L. Tato zmdna 
zpusobf spudtdnf monostabilnfho obvo¬ 
du 2b, _coi se projevf zmdnou na 
vystupu Q obvodu 2b z urovnd H na L. 

Po uplynutf dasovdho intervalu 
7" p1 (urden hodnotami Cl a R6) se vracf 
stav vystupu Q obvodu 2a na droved H. 
Tato zmdna zpusobf posun logickych 
hod not v posuvndm registru 103 tak, ie 
logickd hodnoty na vystupech Q1 ai Q8 

Tab. 1. 
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Obr. 1 



Obr. 2 

se posunou o jedno mfsto doprava a 
soudasnd logickd hodnota na vstupu 
&A se zapfde na vystup Q1. V pffpadd, 
ie pro dodrifme podmfnku: 

T ... viz obr. 1 

t p1 = T + T/2 [1] 

dojde po kaiddm dele vstupnfho impul¬ 
su a po opdtovnd dinnosti 102a ke 
vzorkovdnf ddlky dandho impulsu a na 
vystupu Q1 103 se objevujf logickd nuly 
a jednidky v zdvislosti na tom, zda 
pFidel na vstup C impuls prubdhu 1 
nebo 2 z obr. 1. 

Casovy interval f p2 obvodu 102b 
(urdeny hodnotami C2 a R9) je zvolen 
tak, aby byl obvod znovu spudtdn. 
Vystup Q obvodu 102b pFechdzf tedy 
po pFfchodu dela prvnfho impulsu na 
uroveft L a zustdvd v tomto stavu po 
dobu vzorkovdnf v&ech osmi impulsu. 
PFi dodrienf podmfnky: 


,07 . PfiPS,ra.B3,P 2 , P1, gO 
ID- t. I Y IY |Y lx IX IX Ik] 


tp2 > 3T [2] 


signalizuje ndvrat vystupu Q obvodu 
102b z urovnd L na H, ie prdvd dodlo 
k prevod u celd sekvence osmi impulsu 
(obdoba signdlu ..data platnd“). 

Na vystupech Q1 ai Q8 rezistoru 103 
se v tomto okamiiku objevf obsah 
akumuldtoru mikroprocesoru. Pro daldf 
pouiitf tohoto bajtu v logice displeje je 
jednotlivym bitOm uddlen vyznam po¬ 
dle tab. 1. 

Bity DO ai D3 pFedstavujf BCD hodnotu 
zobrazovandho dfsla, bity D4 ai D6 pozi- 
ci, na kterd je toto df?lo zobrazeno 
s pFfpadnou desetinnou tedkou (bit B7). 

V prvnfm reiimu, to znamend v dobd, 
kdy na vstup C nepFichdzf sdriovd 
posloupnost, je na vstupu L dftade 104 
uroved H. Protoie na vstup CU jsou 
pFivdddny impulsy z generdtoru tvoFe- 
ndho dvdma invertory (na kmitodtu 
v dirokych mezfch nezdleii), objevujf se 
na vystupech A ai C kombinace 1 ai 8. 
Tyto kombinace jsou pFivedeny na 
vstupy A ai C dekoddru 108, takie na 
displeji jsou cyklicky spfndny jednotlivd 
fifslovky. Ddle jsou stejnd kombinace 
pFivedeny na adresovd vstupy A ai 
C pamdfovych obvodu 105 a 106. 
Protoie na vstupech W se nachdzf 
u roved H, jsou obd pamdti ve stavu 
Ctenf a na vystupech SI ai S4 se 
objevujf obsahy jednotlivych pdmdfo- 
vych mist, kterd jsou po dekddovdni 
obvodem 107 cylicky zobrazovdny na 
odpovfdajfcfch mfstech displeje. 

V pamdti 105 jsou uchovdny hodnoty 
osmi dfslic, v pamdti 106 hodnoty 
desetinnych tedek. Kapacita obou pa- 
mdtf nenf pFflid ekonomicky vyuiita, 
jsou to vdak jedind dostupnd pamdti 
s vhodnou organizacf pro tento udel. 

V druhdm reiimu se provddf zdpis do 
pamdti. Po pFevodu sekvence, v oka¬ 
miiku, kdy Q obvodu 102b pFechdzf 
z urovnd L do H, se uvede do 
dinnosti obvod sklddajfcf se z D3 ai 5, 
C5 ai C7, R12, R13 a jednoho inverto- 
ru. Derivadnf dlen C5, R12 vygeneruje 
na vstupu 9 obvodu lOI kladny impuls. 
Vystup 8 pFejde na okamiik na uroved 
L. ProstFednictvfm diody D5 se tato 
droved objevf takd na vstupu L dftade 
104, coi zpusobf pFepis vystupu Q5 ai 
Q7 obvodu 103 na vystup dftade 104 
a zaadresovdnf pamdfovdho mfsta 
v 105 a 106. 


-^Cfslice v k6du BCD 

'000 — 1. pozice zprava 
001 — 2. pozice zprava 
010 — 3. pozice zprava 
. Oil — 4. pozice zprava 

100 — 5. pozice zprava 

101 — 6. pozice zprava 
110 — 7. pozice zprava 
.111 — 8. pozice zprava 



fdesetinnfi tefika 

•11 — svitl Obr. 3. 

1^0 — nesvftl 
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Po ur£it6m Casov6m okamiiku (po 
ust&enl hodnot na vystupech 104) 
ur£on6m tlertem D5, R13, C7 se uroveft 
L objevl tak6 na vstupech W obvodO 
105,106 a tim se do vybran6ho pam6f- 
ov6ho mista zapf§i stavy na vyvodech 
Q1 ai Q4 a 08 obvodu 103 (BCD 
hodnota Ctslice a desetinnd tefika). Po 
odeznftnf z&pom6ho imputsu na v^stu- 
pu 8 obvodu lOI se prostfednictvim 
diody 04 vracl stav na vstupech W 105 
a 106 z urovn* L do H a za urtity Casovy 
Interval urdeny Clenem R13, C6 se tak6 
stav na vstupu L 104 vraci z urovnfi L do 
H. 

Ode se obnovl prvnl reiim, ktery trv£ 
ai do konce pfevodu dalSt sekvence. 
Dioda 03 chrdnl vstup 9 103 proti 
Spi£k6m z^pornd polarity. Spojenf 
vyvodu 8 101 se vstupem BO obvodu 
107 zajiSfuje zhasnutf displeje v dobS 
z&pisu do pamdti. 

Pro uplnost je tfeba dodat, ie pouiit& 
pamdf (105,106) poskytuje na vystupu 
negovand hodnoty uchovanych dat. 
Pro spr&vnou Cinnost dan6ho zapojeni 
je tfeba bity DO ai 03 invertovat Bylo 
by moind pouiit Ctyf invertoru, vyhod- 
n6j5C je v&ak zafazeni instrukce XRIOFH 
do dde popsan6ho podprogramu. 

Programov6 feSenl pfevodu paralet- 
nfho tvaru na sdriovou postoupnost je 
v Tab. 2. Vstupnlm parametrem pod¬ 
programu je hodnota bajtu v akumu- 
latoru se stanovenym vyznamem jed- 
nottivych bitfl. Pomocny parametr RA¬ 
TE urduje ddku Casov6 prod levy TNI. 
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Pro stanovenf celkov6 doby T je 
potfeba sedst doby trvAnf vSech in- 
strukd poCfnaje okamiikem nastaveni 
vystupu na uroveh tog. 1 do okamiiku 
nastaveni vystupu na uroveft log. 0. 

V dandm pffpadS 

T =(76 + 15. RATE), t [3], 
t ... doba periody hodinovych puisu 
(zpravidla 0,5 n&). 

Pfenosovou rychlost (dobu T) je 
moin6 pomocf parametru RATE v 5iro- 
kych mezfch mSnit 

Tab. 2. Program pfevodu 


Na z&klad& zvolenO doby T je nutn6 
urtit hodnoty R6, R9, Cl, C2. 

Pro funkCnf vzorek byla zvolena hod¬ 
nota RATE = 32 (20 HEX). D6le by! zvo- 
len odpor rezistorO R6=39 OOOQ, R9*= 
» 39 000 Q. Pomoci vztahu fl), {2] 
a vztahu 

C = T/(K0NST1 .R.(1 + 0,7/R)) (4j, kde - 
KONST 1 « 0,28 pro UCY74123 N, 

= 0,32 pro SN74123 N 

byly vypo6ft6ny Cl = 33,4 nF, 

C2 > 66,8 nF. 

Zvoteny byty C1= 33 nF. C2= 0,1 jiF. 


COMMENT* 

PROGRAMOVY SEGMENT PROVADEJICI PREVOD 

paraLelniho formatu na seriovou 
POSTUPNOST 8IT0 pro vystup postupnosti je pousita 
8RANA C OBVOOU 8235. VYSTUP NA CRANE JE OVLAPAN 
POMOCI RIOICI CRANV CNT PREDPOKLAOA SE POCATECNI 
IMICIALIZACE OBVODU 8255 NA REZIM 0 * 


CNT EQU 7 

RATE ECU 32 

PUBLIC SERICl 
CSEC 

SERIO, 01 

PUSH P9M 

push e 

PUSH O 
PUSH H 
MV I e.ftATE 

MVI C.8 

XRI OFH 
CVKL RLC 

NOV M.A 
JC LOCI 


.AORESA RIOICI BRANY 
.OBVOOU 8255 

.HODNOTA URCUJICI RYCHLOST 
.VYSILANI POSTUPMOSTI 


.RYCHLOST VYSILANI 
.00 REC.B 

,e POSTUPNVCH HOT AC I 
;8YTU OOLEVA 
.NECACE 8ITU 08-03 

jROtace obsahu acc 

.0 JEONO HISTO OOLEVA 
.POSUNUTV BYTE DO REG H 
iSKOK KOYZ PRIZNAK CV*t 


LOCI 


SKOK. 


PI. 


CALL Pt 
CALL P3 
CALL PS 
CALL P2 
JMP SKOK 


OCR C 
MOV A.H 
JMZ CYKL 
POP H 
POP 0 


MVI A.OSH 
OUT CNT 
RET 


.VYSILANI ItTULSU PRO PACE 1-1 

. TESTOVAWY BIT » 8 


CALL PI 
CALL PS 
CALL P2 
CALL P? 
JMP StCOK 


.VYSILANI INPULSU PRO 
.TESTOVANY BIT -1 


P2. MV I A.02H 

OUT CNT 
RET 

PS. MOV 0.8 

TNI OCR 0 

JNZ TNI 

RET 

END 


.VYROVNANI CA90VCHO ROZDILU 


.VRACEMI POSUNUTEHO 8YTU 00 ACC 
.UKONCENI PO OSMI ROT AC ICH 


.nastav vystup na loc i 


.NASTAV VYSTUP NA LOC 0 
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.CCNERACE CASOVEHO 
.USEKU TNI 











Seznam sou££stek 


r t t 


u 


125 




Rezistory 


R1 

330 ft (MLT — 0,25) 

R6*. R9' 

39 kO. TR 191 (TR 175) 

R2, R3 

22 kn TR212 

R4 

150 0 

R5 

R7, R14, 

3,3 kO 

R15 ai R27 

2.7 kO 

R8 

1,2 kO 

RIO, R11 

1,2 kn 

R12 

470 n 

R13 

120 0 

R28 ai R35 

2,2 kn 

R36 ai R43 

39 O (MLT — 0,25) 

R44 ai R59 

330 0 

Kondenz&tory 

cr 

33 nF, TC216 

C2‘ 

0,1 |iF, 7C2155 

C3 

15 nF, TK744 

C4 

33 nF. TK782 

C5 

10 nF, TK724 

C6 

4,7 nF. TK724 

C7 

10 nF, TK724 

C8 ai C12 

0,15 mF, TK782 

PotovodiiovG souCAstky 

D1, D3 ai D6 

KA221 

D2 

KZ260/6V8 

T1 

KSV71 

T2 ai T17 

KSY82 

lOI 

MH7404 

102 

UCY 74123N 

103 

MH74164 

104 

MH74193 

105, 106 

MH7489 

107 

D146 

108 

MH7442 

OP 

WK 16412 

Z1 ai 28 

LO470 


viz text 



+tObr. 8. Rozmfst&nf soudSstek na desce 
s ploSnymi spoji W507 displeje 


Konstrukce 


Displej je vestav&n v jednoduchg 
krabici z hlinfkov6ho plechu. Sifovy 
transform6tor s usmSrrtovaCem jsou 
umistSny mimo krabici. Na zadni st6n6 
je stabilizator MA 7805. Pro pFipojeni 
s6riov6 linky je pouiit b6iny tFfkolikovy 
konektor. 

Jako ndhrada prokovenych d6r se mi 
osvSdCil tenky pocinovany drdtek vlo- 
zeny do otvoru a pripdjeny z obou stran 
ke spoji. Pri p&jeni nesmi do otvoru 
vt6ci kalafuna, aby bylo mo2no n£sled- 
n6 zasunout a pripdjet IO. Timto zpuso- 
bem jsou pFip£jeny pFedevSim Cisticov- 
ky LQ470 (pFfpadn6 jejich objimky). 

Oba oboustrann£ spoje jsou po 
osazenf pFilepeny k sob<§, propojeny 16 
vodiCi a pFi§roubov£ny CtyFmi Srouby 
s distanCnfmi podloikami. Proto2e pFi 
pFipadn6m kontaktu vodiCu A ai 
H s kostrou by doSlo ke zniCeni 
Cislicovek, doporuduji pFisluSrtd mista 
izolovat napF. pFilepenim kousku 
odleptangho kuprextitu. 


Obr. 6. RozmfstSnf soud&stek na desce 
4 s ploSnymi spoji W506 zobrazovade 
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Uvedenf do chodu 


Logtckou sondou zkontrotujeme, zda 
pracuje generator impulsu (vystup 10 
lOI). V prvnim reiimu musi byi na 
vystupu 8 lOI, vstupech 11 104, 3 105 
a 106,4 107 tiroveft H. Na vystupech A, 
B, C se objevuji impulsy z generatoru 
d£len6 2, 4 a 8. Tyto impulsy zkontrolu- 
jeme tak6 na pFisluSnych vstupech 105, 
106,108. Dale zkontrotujeme, zda jsou 
tranzistory T10 ai T17 cyklicky spfndny, 
pFidemi propojenim bodO 4 a 5 se must 
rozsvitit vSechny segmenty. 

DalSi krok jii vyiaduje spojenf 
s mikropoCftafcem. Na obr 2 je uvede- 
na pouze jedna z moinosti vykonov6ho 
zesileni signdlu a napdjeni proudov6 
smydky. Je moina pouiit pFfmo vystup 
nakteraho z vykonovych hradel TTL 
nebo vystup obvodu 3212 (v tomto 
pfipade by bylo tFeba nahradit dlodu 
02 z obr. 3 dr&tovou propojkou). 

Pro pFipad, ie obvod nap^jejicf prou- 
dovou smyCku signal invertuje, jsou 
ur6eny pFepinaci body 1—3, 2—3. 
Propojku zvolime tak, aby v dob8, kdy 
nepfichazl 2&dn& posioupnost, byla na 
vstupech 1, 2 obvodu 103 uroveft L. 

Nyni do akumuiatoru vloiime urCitou 
hodnotu a vyvoiame podprogram. PFi 
spravna Cinnosti se na vystupech Q1 ai 
Q8 103 must objevit obsah akumuiato- 
ru (01 ai Q4 obsahujf negovana urov- 
n&) a na displeji se rozsvfti pFisluSna 
Cislice. 

Princip k6dovanf, ktery je zde pouiit, 
zaruCuje veikou odolnost proti kolisanf 
pFenosova rychlosti (muieme se o tom 
pfesvSdCit mananim parametru RATE 
v okoli zvolena hodnoty), pFesto dopo- 
ru£uji z hlediska dlouhodoba stability 
na mistech R6, R9, Cl. C2 pouiit Fadu 
TR191 a TC215. 


Pouiiti 

Displej najde uplatnani vSude tarn, 
kde je potfebna zobrazit vysledek n6ja- 
ka operace (napF. maFeni elektrickych 
yelidin, zobrazeni reainaho Casu 
apod.), pFidemi pouiitf terminaiu se 
jevt pro dany uCel jako nevhodna. 

Displej je sice urden pro zobrazeni 
desftkovych tfsel, ale nenf vylouCeno 
zobrazeni Cisel hexadecimainich. 
V tomto pFipada by bylo vyhodnaj§f 
misto obvodu 0146 pouiit obvod 
U40511 s pFisluSnymi upravami. Prove- 
deni s D146 vSak poskytuje moinost 
programovaho zhasinini jednotlivych 
fiislic (jednidkova bity DO ai D3). 

' Pouiiti zapojeni z obr. 3 zaji§fuje 
gaivanicka oddaieni a umoifiuje pFe- 
naSet fiiseln^ udaj na pomarna veikou 
vzdaienost (stovky metru). 

V pFipada, ie zobrazovaC bude umfs- 
tan v blizkosti mikropoCitafie, je moir»a 
toto zapojeni vypustit a signal pFivast 
pFfmo na svorku C (obr. 4). 


Obr. 5. Obrazce ploSnych spojO desky 
W506 zobrazovade 


» 
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0000 

00100 

ORG 

0H 

0000 AF 

00120 START 

XOR A 


0001 D300 

00130 

OUT 

<0>#A 

0003 31F8FF 

00140 

LD 

SP#0FFF0H 

0006 DD210880 

00150 

LO 

IX.8000H 

0000 110040 

00160 

LO 

DE, 4600H 

000D CD1R00 

00170 

CALL 

BVTES 

0010 3004 

00180 

JR 

NC# ERR 

0012 D001 

00190 

OUT 

<1># A 

0014 00 

00200 

NOP 


0015 00 

00210 

NOP 


0016 D302 

00220 ERR 

OUT 

<2># A 

0018 18E6 

00230 

JR 

START 

081A 14 

00240 BVTES 

INC 

0 

001B 08 

00258 

EX 

flF# AF' 

001C 15 

00260 

OEC 

0 

001D 3E0F 

00270 

LO 

A# 0FH 

001F D3FE 

00280 

OUT 

<0FEH># A 

0021 0E02 

00290 

LD 

C#02H 

0023 CD9B00 

@0300 LDSTRT 

CALL 

EDGE1 

0026 30FB 

00310 

JR 

NC. LDSTRT 

0028 211504 

08320 

LO 

HL/ 0415H 

0028 10FE 

00338 WRIT 

OJN2 

WAIT 

• 0020 26 

08340 

OEC 

HL 

002E 7C 

00358 

LO 

ft/H 

002F 85 

00360 

OR 

L 

0038 20F9 

00370 

JR 

NZ/WAIT 

0032 CD9700 

00360 

CALL 

EDGE2 

0835 30EC 

00398 

JR 

NC#LDSTRT 

0037 069C 

00400 LEADER 

LD 

B# 9CH 

0039 CD9780 

00410 

CALL 

EDGE 2 

003C 30E5 

08420 

JR 

NC# LDSTRT 

003E 3EC6 

00430 

LO 

ft# 0C6H 

0040 88 

00440 

CP 

8 

0041 30E0 

00450 

JR 

NC#LDSTRT 

0043 24 

00460 

INC 

H 

-0044 20F1 

00470 

JR 

NZ#LEADER 

0046 06C9 

00480 SYNC 

LD 

8# 0C9H 

0048 CD9B00 

00490 

CALL 

EDGE1 

0046 3006 

00500 

JR 

NC# LDSTRT 

004D 78 

80510 

LO 

A# 8 

004E FED4 

00520 

CP 

0D4H 

0050 30F4 

00530 

JR 

NC# SYNC 

0052 CD9880 

00540 

CALL 

EDGE1 

0055 00 

00550 

RET 

NC 

0056 79 

08560 

LO 

ac 

0057 EE83 

00570 

XOR 

03H 

0059 4F 

00588 

LO 

C# A 

005ft 2600 

00590 

LO 

a© 

005C 0660 

00600 

LO 

B# 0B0H 

005E 1819 

80610 

JR 

MARKER 

0060 08 

00628 LOOP 

EX 

AF# AF' 

0061 2005 

00638 

JR 

NZ# FLAG 

0063 DD7500 

80648 

LD 

<IX+8>#L 

0066 180B 

80650 

JR 

NEXT 

0068 CB11 

00660 FLAG 

RL 

C 

006ft 2C 

08670 

INC 

L 

0068 2093 

QOfoa 

Wooo 

JR 

NZ# START 

0060 79 

00690 

LD 

ac 

006E IF 

00700 

RRA 


006F 4F 

08710 

LO 

C#ft 


0070 13 

00720 

INC 

DE 

0071 1802 

00730 

JR 

DEC 

0073 0023 

80740 NEXT 

INC 

IX 

0075 IB 

00750 OEC 

DEC 

DE 

0076 08 

08760 

EX 

AF# AF' 

0077 0682 

00770 

LD 

B/882H 

0079 2E01 

00780 MARKER 

LD 

L# 81H 

007B CD9700 

00790 BITS8 

CALL 

EDGE2 

007E D0 

00880 

RET 

NC 

007F 3EC8 

00810 

LD 

ft# 0C8H 

0081 B8 

00820 

CP 

8 

0082 CB15 

00830 

RL 

L 

0884 0680 

00840 

LO 

B# 0B0H 

0086 D27B80 

00850 

JP 

NC# BITS8 

0089 7C 

00860 

LO 

A# H 

008A AO 

00870 

XOR 

L 

0088 67 

08880 

LO 

H# ft 

008C 7A 

00898 

LO 

R# 0 

008D B3 

00900 

OR 

E 

008E 2000 

00910 

JR 

NZ# LOOP 

0090 7C 

00920 

LD 

aw 

0091 FE01 

08930 

CP 

01H 

0093 D20000 

00948 

JP 

NC# START 

0096 C9 

00950 

RET 


0097 CD9B00 

00960 EDGE2 

CALL 

EDGE1 

009A D0 

00970 

RET 

NC 

0098 3E16 

00988 EDGE1 

LD 

A# 16H 

0090 30 

00990 DELAY 

OEC 

A 

009E 20FO 

01000 

JR 

NZ# DELAY 

00A0 A? 

01010 

AND 

A 

00A1 04 

01020 SAMPLE 

INC 

B 

00A2 C8 

01030 

RET 

Z 

00A3 3E7F 

01040 

LD 

A# 7FH 

00A5 DBFE 

01050 

IN 

A# <8FEH> 

00A7 IF 

01060 

RRA 


00A8 D0 

01070 

RET 

NC 

own/ nzr 

01000 

XOR 

C 

00AA E628 

01090 

AND 

20H 

00AC 28F3 

01100 

JR 

Z# SAMPLE 

00AE 79 

01110 

LD 

ac 

00AF 2F 

01120 

CPL 


0080 4F 

01130 

LD 

C# A 

0081 E607 

01140 

AND 

07H 

0083 F608 

01150 

OR 

08H 

0085 03FE 

01160 

OUT 

<0FEH>, A 

0087 37 

01178 

SCF 


0088 C9 

01180 

RET 


0000 

01190 

END 

START 

00000 TOTAL ERRORS 



BITS8 007B 


MARKER 

0079 

BVTES 081ft 


NEXT 

0873 

DEC 0875 


SAMPLE 

WwjX 

DELAY 0090 


START 

0000 

EDGE1 0098 


SYNC 

0046 

EDGE2 8097 


WAIT 

0028 

ERR 0016 




FLAG 0068 




LDSTRT 0023 




LEADER 0037 




LOOP 0068 
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D7 


.DIO© IFF 
©100 FF F3 

F© 

Fl 

F© 

FF 

FD 

Fl 

FO 

FO 

Fl 

FO 

F© 

FD 

F8 

F© 

0110 

F© 

F2 

F3 

F© 

F3 

FO 

F8 

F8 

F4 

FS 

F5 

FE 

FF 

F3 

FE 

FE 

0120 

F2 

FD 

F9 

FO 

FO 

FB 

Fl 

F5 

F2 

F© 

FE 

FB 

FC 

F5 

F© 

F9 

©130 

FD 

F5 

F© 

FO 

FC 

F6 

FC 

FD 

F5 

FO 

FO 

F5 

FE 

F6 

FS 

FO 

©14© 

FO 

F4 

F© 

Fl 

F6 

F9 

FD 

F9 

FO 

FO 

F6 

F8 

FE 

F4 

FO 

F4 

©15© 

FD 

F? 

F© 

FO 

F9 

FE 

F3 

FF 

F6 

FO 

F6 

F© 

F8 

F9 

F8 

F© 

0160 

F5 

FD 

F5 

FO 

F8 

FB 

FB 

Fl 

FC 

FO 

F5 

F9 

FF 

FF 

F3 

FS 

0170 

F2 

FD 

F3 

FB 

FS 

F6 

F2 

FE 

Fl 

FD 

F5 

F© 

FO 

FE 

FS 

F8 

©ISO 

FB 

F5 

F6 

F© 

F2 

F9 

FO 

FC 

FD 

F7 

FA 

F3 

F© 

F© 

FC 

FE 

0190 

Fl 

F2 

F© 

FO 

F9 

FD 

F9 

FO 

FO 

FE 

F6 

FD 

F© 

FD 

F7 

F4 

01 A© 

F3 

FE 

FF 

FB 

FE 

FF 

F© 

F9 

F6 

FO 

F8 

F3 

F9 

FF 

FF 

FA 

©180 

F7 

F6 

FS 

F3 

FE 

F7 

F9 

FO 

F© 

FO 

F© 

F© 

F© 

F© 

F© 

F© 

©ICO 

FO 

FO 

FO 

FO 

F© 

FO 

F© 

F© 

FO 

F© 

F© 

F© 

F© 

F© 

F© 

FO 

0100 

FO 

FO 

F© 

F© 

F© 

FO 

FO 

FO 

F© 

FO 

F© 

F© 

F© 

F© 

F© 

FO 

©1E0 

F© 

F© 

FO 

F© 

FO 

FO 

FO 

FO 

FO 

FO 

F© 

FO 

F© 

F© 

F© 

F© 

©IF© 

F© 

FO 

F© 

F© 

F© 

F© 

FO 

F© 

F© 

FO 

F© 

F© 

F© 

F© 

F© 

F© 


Obsah pouzdra 74S287 pKpojovantho na DO ai 

D3 

0200 2FF 

0200 FA FD F© F3 FF FF FD F2 FQ F8 FI F© F4 FC FI FO 

0210 F3 F© FD FO FD F© FI FE FI F© FI F3 F© FD FF F© 

0220 F© FC F9 FO F3 FF F2 FI F© Fl, FF F2 F? FB F2 FF 

0230 FC F9 FO F3 FE FO F9 FC F9 FO F3 F© F3 FC FB F3 

024© FE F2 F2 FF F© FC FC F9 FO F3 FD F7 FF FD F3 FF 

025© FC F9 F© FD F7 FE F© F4 F2 FO F© FB Fl Fl FO F2 

©260 F© FD F7 F© Fl F© FC Fl F2 F2 F9 F7 Fl F4 Fl Fl 

027© FO FD F2 Fl F© FO FB F2 FO FC F9 FO FD F3 FC FB 

028© FC Fl F© FB FD F7 FO F7 FA F6 F7 FB F2 FD F7 FF 

029© F© FD F© F© FC FC F9 FO FD F3 Fl F3 F2 FF FA FO 

02A0 FC F3 F7 FD FF F.l FD FA FE F2 F2 FF F7 F2 F4 FE 

©2B© FO FF F© FD FF F3 FC FO F© FO F© F© FO FO FO F© 

02C0 F© FO FO FO F© FO F© F© F0 F© F© F© F© F© FO F© 

©2D© F© F© FO F0 F© FO FO F© F© F© FO F© F© F© FO F© 

©2E0 F© F© FO F© FO F© F© FO F© F© FO F© F© FO FO FO 

02F© FO F© FO FO F© F© F© FO F© FO F© FO F© FO F© F© 




ing. Martin Stgp£nek 

Jordana Jovkova 3256 
Praha 4-Modfany 

Program PROFESOR je urCen pro zkouAenf a opakovAnf Mtky ruznych oboru 
zAbavnou formou. Je zviati vhodny pro problematiku, kde zAleif na grafickAm 
zobrazenf (napf. zemApts, astronomie, geometric, elektronjka apod.). Program je 
ovAem pouiitelny i pro zcela negrafickA obory jako je tfeba mluvnice nebo 
zkouAenf nAsobilky. Program PROFESOR pracuje v nAkolika reiimech, v nichi 
muieme lAtku opakovat (popf. vykIAdat), zkouAet a hod notit. ZkouAenf muie 
problhat bud" individuAlnA, nebo soutAii vice ACastntki) mezi sebou. 


Program PROFESOR sAm o sobA za- 
jiAfuje komunikaci mezi poCitaCem 
a ClovAkem. Aby PROFESOR oiil, must 
obsahovat databAzi udaju z oboru, 
ktery chceme zkouAet. Takovych dato- 
vych bAzf muie byt velkA mnoistvf 
a vidy, kdyi nahrajeme novou data¬ 
bAzi do programu PROFESOR, zf- 
skAme znalce pffsIuAnAho oboru. 

Aby se snadno mohly vytvAfet novA 
databAze podie zAjmu jednotlivycn uii- 
vatelu, pffsIuAf k programu PROFESOR 
jeAtA pomucka zvanA TESTEDITOR. 
TESTEDITOR je program, ktery velmi 
snadno umoiftuje pripravovat a opra- 
vovat bAze grafickych a textovych infor- 
maci vlastnfch testu (viz str. 34). 

Program PROFESOR byi sestaven 
tak, aby byl snadno pfenositelny na jinA 
typy poCftaCu. Pro pouifvAnf programu 
PROFESOR na jinAm poCftaCi se upravf 
jen vlastnl program a vAechny databAze 
je moinA pouifvat beze zmAn. 

Obsluha programu PROFESOR 


Po nahrAnf programu do poCftaCe se 
program sAm spustf a my se dostane- 
me do jeho hlavnfho menu. V hornf 
CAsti hlavnfho menu vidfme tfi moinA 
reiimy Cinnosti programu PROFESOR. 
Reiim vykladu („v“) slouif k postup- 
nAmu prohlfienf obsahu celA databAze. 
Vykreslf se obrAzek jednA otAzky 
a vypfAe se tak A sprAvnA odpovAcT. 
Napffklad se zobrazf poloha mAsta 
v obrysu Evropy (otAzka) a jeho nAzev 
(odpovAcT). U nAkterych databAzf se 
takA zobrazf nabfzenA varianty odpo- 
vAdf, ze kterych bychom si v reiimu 
zkouAenf vybfrali. Po prohlAdnutf otAz¬ 
ky mflieme bucT prejft k dalAf otAzce 
klAvesou ..ENTER", nebo reiim vykladu 
ukonAit klAvesou „SPACE“. 

DalAfm reiimem je zkouAenf. V tomto 
reiimu se nejprve nakreslf podkladovy 
(staticky) obrAzek. PotA jsme dotAzAni 
na poAet uAastnfku, jejich jmAna, poAet 
otAzek v kole a stupefl obtfinosti. Volba 
stupnA obtfinosti se projevuje v Case 
poskytnutAm na zodpovAzenf otAzky. 
ZAkladnf Cas (obtfinost jedna) je ovAem 
ruzny pro kaidou databAzi (podie jejf 
problematiky). Po voibA obtfinosti za- 
poCne vlastnf proces zkouSenf. 
U jmAna uCastnfka, ktery mA odpo- 



vfdat, se rozsvftf blikajfcf kurzor 
kterym muieme cyklicky pohybovat 
pomocf klAvesy „SPACE“ (mezernfku). 
Kdyi se domnfvAme, ie je vybArovy 
kurzor pfed sprAvnou odpovAdf, stisk- 
neme „ENTER“. Zvukovy signAI nAs 
upozornf na uspASnost naSf odpovAdi. 
Tfi stoupajfcf tAny nAm oznamujf sprAv¬ 
nou odpovAcT, jeden dlouhy a hluboky 
t6n odpovAcf Spatnou. Pfi voibA sprAv¬ 
nA odpovAdi zaCne vedle naSeho jmAna 
narustat pAs znaCek, ktery svou dAlkou 
vyjadfuje okamiitou uspASnost. 
V kaidAm pffpadA se zAvArem otAzky 
zobrazf sprAvnA odpovAd*. Vfme jii, ie 
AekAnf na odpovAcT je CasovA omezeno. 
Abychom mohli posoudit zbyvajfcf Cas, 
zobrazuje se pod obrAzkem souvisly 
pAs, ktery se s ubyvajfcfm Casern 
zkracuje. V tomto pAse je takA informa- 
ce o poradf otAzky. Po vyCerpAnf vSech 
otAzek dochAzf k vyhodnocenf, kterA je 
slovnf a procentuAInf. Po stisku klAvesy 
se vracfme do hlavnfho menu. Pffka- 
zem nahrAnf novA databAze („n“) mu¬ 
ieme zmAnit obor znalostf naSeho 
poCftaCe. V reiimu nahrAvAnf uvedeme 
nejprve jmAno databAze a potA urCfme 
druh pamAfovAho zaffzenf. Po ukonCe- 
nf nahrAvAnf se vrAtfme do hlavnfho 
menu. 

Ve spodnj CAsti hlavnfho menu muiete 
vidAt zAkladnf informace o databAzi 
prAvA obsaienA v programu PROFE¬ 
SOR. Je to jednak tabulka zpusobu 
hodnocenf v zAvislosti na uspASnosti 
odpovAdf a dAle nAzev datovA bAze, 
poCet obrAzku v nf (jedniCka pfedstavu- 
je trvaly podkladovy obrAzek) a za 
lomftkem si pfeCteme kolik bunAk 
vymezenAho prostoru zabfrA (u prvnf 
verze programu PROFESOR je to maxi- 
mAlnA 4000 bunAk). 

Princip Cinnosti programu 

Program PROFESOR pracuje s jed- 
nfm statickym obrAzkem a sadou 
obrAzku dynamickych, kterA se prekre- 
slujf pfes staticky podklad. Kaidy dy- 
namicky obrAzek v pod state prfsIuSf 
jednA otAzce testu. Pfi vyuce se otAzky 
zobrazujf ve stejnAm pofadf, jak jsou 
uloieny v databAzi. Pfi zkouSenf je 
pofadf nAhodnA. Kaidy obrAzek je 
popsAn jako sArie pfevAinA grafickych 
operacf ve speciAInfm jazyee. Program 
PROFESOR pak vystupuje v roli inter- 
pretaCnfho pfekladaCe. Zde je tfeba 
zduraznit, ie pro uifvAnf programu 
PROFESOR a TESTEDITOR nenf vubec 
nutnA znAt zmirtovany vnitfnf jazyk. 
Program TESTEDITOR napffklad pfSe 


program v tomto jazyee sAm, podie 
toho jak kreslfme kurzorem po obra- 
zovee. 

PFenosnost programu 
PROFESOR na jinS poditade 


Program PROFESOR je navrien tak, 
aby jeho upravy pfi pfenosu byly 
minimAInf. Od cflovAho poCftaCe ovSem 
vyiaduje spinAnf nAkterych zAkladnfch 
vlastnostf. Protoie je PROFESOR prog- 
ramem grafickym, musf mft i cflovy 
poCftaC bodovou grafiku. Protoie se 
jednA o kombinaci obrAzku s textem, 
musf byt takA zachovAny nAsledujfcf 
proporce. Program bude pracovat na 
grafickA ploSe 256X192 bodfl (muie byt 
i fiktivnf). Pro texty bude tato plocha 
odpovidat 24 fAdkOm po 32 znaefeh. 
Tyto relace jsou spInAny u cel A fady 
poCftaCu pffmo (kromA Spectra napf. 
poCftaCe znaCky Commodore, Atari, 
Amstrad-Schneider a typy kompatibilnf 
s IBM PC nebo u nAs znAmy Sord M5). 
U poCftaCe PMD-85, ktery nesplftuje 
uvedeny formAt, Ize s vyhodou pouift 
napffklad pffkaz SCALE (PROFESOR 
na PMD-85 jii existuje). Cflovy poCftaC 
takA musf disponovat operaCnf pamAtf 
alespoh 16 kB. I kdyi jsou vSechny 
databAze barevnA, nenf nutnA je provo- 
zovat na barevnAm poCftaCi. VSeobec- 
nA Ize ffei, ie obsluinA podprogramy 
furikef, kterA nelze na cflovAm poCftaCi 
realizovat (napf. barvy, zvuk apod.), 
musfme zachovat, pouze v nich neuve- 
deme vykonnou instrukef, kterou po- 
CftaC neumf. Pokud je program PROFE¬ 
SOR sprAvnA pfeveden, budou data¬ 
bAze fungovat beze vSech zmAn. 

Nynf bych se jeStA zmfnil o nAkterych 
prfkazech jazyka BASIC poCftaCe ZX- 
Spectrum, kterA by mohly Cinit potfie 
pfi pfenosu programu. Pffkaz RANDO¬ 
MIZE (f. 1180) nastavuje semeno pseu- 
donAhodnych Cfsel podie vnitfnfho 
CftaCe Casu (tedy nAhodnA).Funkce 
RND generuje pseudonAhodnA Cfsla 
v intervalu od nuly do jednA. Pffkaz 
DRAW je relativnf. GrafickA soufadnice 
se ve smAru „x“ poCftajf od 0 do 255 
zleva doprava a ve smAru „y“ od 0 do 
175 zdola nahoru. ftAdky textu se znaCf 
0 ai 21 shora dolu a sloupce 0 ai 31 
zleva doprava. Pro tisk na fAdek 22 (leif 
bezprostfednA pod linif y=0) nebo 23 
uifvAme pffkaz PRINT # 0; AT 0, 
0 nebo PRINT # 0; AT 1,0. Pffkaz 
INVERSE slouif jen pro grafickA 
zvyraznAnf a Ize ho vynechat. Pffkaz 
OVER je vyuifvAn k mazAnf. Pro OVER 
0 se vynAAejf body systAmem „or“ pro 
OVER 1 systAmem „xor“. Pro vAechny 
zAkladnf bAze dat muie grafika praco¬ 
vat neustAle systAmem „xor“ nebo Ize . 
nahrazovat pffkaz OVER 1 reiimem 
..reset", kdy se pod vynesenou pozief 
vidy nuluje. V databAzfch, u kterych by 
se s touto eventualitou nepoCftalo, by 
dochAzelo jen k malym grafickym va- 
dAm (napf. v mfstA kffienf by nebyl 
vynesen bod apod.). ZAkladnf databAze 
jsou ovAem navrieny tak, aby se pfe- 
deAlo zmirtovanym a nAkterym dalAfm 
problAmum. Program takA vyuifvA je¬ 
den uiivatelem definovany znak (f. 
1930 a f. 2830), ktery mOie byt samo- 
zfejmA nahrazen znakem bAinym. 
Pffkaz BORDER slouif k nastavenf 
barvy okraje a Ize ho vynechat. KIAvesa 
..ENTER" generuje k6d 13, na ktery je 
testovAna. Generuje-li odesfiaci klAve- 
sa cflovAho poCftaCe jiny k6d, musf se 
testovaci mfsta pfizpusobit 



Zdkladnf databdze programu „Profesor“ 


V t6to kapitole uvadfm jako prfklad 
zAkladnf vlastnosti n6kterych data- 
b&zi, kter6 m6m pro program PROFE- 
SOR sestaven6. 


Dopravnl situace 

Nav6§t! ..DopravSir, 27+1 obr4zek, 
d6tka 3992 bun&k. Datable se zabyvd 
fetenfm dopravnfch situaci na kfiiovat- 
k£ch. 
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Evroptki mote 

N6v6Stf „MoreEvr“, 16+1 obr&zek, 
dOlka 2116 bundk. Zkouteny zde vyblra 
jeden z peti n&zvii morf, o kterOm se 
domnfva, ie pFfsIuSf vyjrafovan6 ob- 
__ last! na map6 Evropy. 



Ndv&Stf ,,N6sobHka‘\ 31+1 obrizek, 
d^tka 2754 bunftk. Program zkou$f 
malou ndsobilku formou nabfdky pft- 
kladu a p&ti moinych odpovfedf. Oba 
Cinitete jsou menSf nei deset. 



EvropsM mista 

N£vestf „MestaEvr“, 35+1 obr&zek, 
deika 2373 bundk. Vybfr4me jednu 
z pdti nabfzenych odpovfidt pro polohu 
mesta oznaienou krfikem a Sipkou. 



Souhvdzdi Severn! oblohy 

N£v6$tf „SouhvSzdf“, 20+1 obr^zek, 
d6fka 1928 bunfik. Program vykresluje 
bodov6 nejzn&m6j§f souhv6zdf sevemi 
oblohy. U kaicteho souhvSzdf 
velikost desetistupftoveho uhlu. 
K vybSru je nabizeno pet odpovddf. 


Svetov* mote a oceAny 

NAvestf „MoreSveta*', 20+1 obrAzek, 
d6lka 2030 bunek. Na stlnitku se 
zobrazf obrysy svetadflu a Spikami jsou 
ozna£ov£na jednotlivS mofe. Odpov&cT 
vybfr£me z petl n&zvu. 
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VdM nteobitka 

N4ve§tf „VelNasf“, 40+1 obr£zek, 
d6lka 2977 bunek. Zkoutenf nfisobilky, 
kde prvnf Cinitel je menSf a druhy v6t§f 
nei deset. Sprltvnou odpov&f vy- 
bframe z pdti dfsel. 


Velk£ nteobilka II 

N£vestf ,,VelNas2“. 25+1 obrAzek, 
d6lka 2402 bunfik. SouCin, na jehoi 
vysledek se program dotazuje, je tvo- 
ten dvfema Cfsly z intervatu deset ai 
patnAct. Vysledek vybfr&me z p&ti od- 
povedf. 
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Evropskd pohoH 

NAvdStf ..PohoriEvr", 24+1 obrdzek, 
deika 2049 bun§k. V mape Evropy se 
vykreslf poloha pohorf a na zkoutenem 
je vybrat spr6vny n£zev z pdti nabfze¬ 
nych. 


M*sta v esSR 

NteeStf ,,MestaCSSR“, 32+1 
obr&zek, d6lka 1695 bunek. Do obrysu 
naSf repubiiky se zakresluj! polohy 
m6st a k vybdru je nabfzeno test 
moinostf. 
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Nate mteta 

Nevtetf ,.NaseMesta“, 42+1 obr&zek, 
deika 1301 bunek. K naznaCenO poioze 
mteta vybfrAme jmeno z nabfzenych 
sedmi moinostf. Vypis teto datable je 
na str. 33. 
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X 00 TO 175®: REM Stud«ny sit 

8 00 TO 1030: REM Ho rig Start 
a® REM Kres ini 
3® LET u*p (o) 

40 LET U0*U+£S6*C0DE bt(U)4C0D 
E bt (y + l) 41 

5® LET u*u+a 

5® IF u>U0 RND 00} THEN LET T 
1*1 

7® IF u>U® THEN LET f*0: RETUR 
N 

ee let i*cooe t»iu>) 

9® LET y*U4l 

10® IF 1*8 THEN CO sue as®: 00 
TO 60 

11® IF 1*1 THEN 00 SUB 38®. 00 

to m 

18® IF l«0 THEN GO sue 1080: 00 
TO S® 

130 IF 1=3 THEN 00 SUB 30®: 00 
TO 6® 

14® IF U4 THEN 00 SUB 48®: GO 
TO 6® 

150 IF la® THEN GO SUB 560: GO 
TO 6® 

16® IF la1® THEN CO SUB 680: GO 
TO 60 

170 IF 1-6 THEN 00 SUB 460: GO 

T 160®IF 1*6 THEN 00 SUB 580: 00 
TO 6® 

19® IF 1*7 THEN CLS 

800 IF la© THEN BEEP 0.1,3® 

81® IF 1*11 THEN CO SUB 90® 

880 IF la18 THEN CO SUB 94® 

830 IF 1*13 THEN CO SUB 104® 

840 CO TO 6® 

850 REM ORRU , 

86® ORRU CODE bt(U)-KS.CODE b®( 
u + 1) -gs 

87® LET XS-COOE bf(U) 

88® LET gsaCOOE bj(W4l) 

89® LET U<Ut8 
300 RETURN 

380 PLOT**COOE b®(U) .CODE b*Cu+l 

*33® LET XS-CODE b0(U> 

34® |_ET y»*COI>E b6tU+H 
350 LET U »U +8 
36® RETURN 

38® PRIN? T RT CODE bt(u).CODE bt 
(y4l);__ _ 

390 LET U *U +8 
40® RETURN 

' 430 FOR T* 5 Tl TO u+CODE b»(U) 
430 PRINT b*(U i 
44® NEXT l 

45® LET U—U4C00E b$(Ui+l 

46® RETURN 

47® REM INK 

480 INK CODE b*(U) 

490 LET U«U+1 


[Spravnynii«v: 
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Helena • 
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m nra™ 

58® PRPER CODE bt(U) 

S3® LET U *U + 1 
540 RETURN 

SS® REM REL DRRU _ _ 

56® DRRU CODE b*(U)-186,CODE bt 
(U+1J-186 

570 LET xsaxsi-CODE bt(y)-188 

580 LET ys*v*+COOE bi(u + l)-188 

69® LET U-y+8 

60® RETURN 

61® REM SEGMENT 

sa® LET U5*0 

630 LET U3*U 

64» LET u4a W 0 

65® LET 0-COOS bt(U>480 

660 GO SUB 80 

670 LET O-US 

680 LET y-u3 

69® LET U0-U4 

700 LET U *U + 1 

71® RETURN 

78® REM ERRSE 

730 LET (0*1 

740 LET n«-0 

75® IF f*l OR ria® THEN RETURN 
78® LET U5*0 
77® LET U3«U 
78® LET U4*o® 




kUiveso’>-1'ENTER' 
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790 LET 0-00 
800 LET f-1 
810 OUER 1 
68® GO SL0 80 
630 OUER 0 
840 LET 0«u5 
850 LET U-U3 
6e* LET U0*y4 
870 LET (0*® 

880 RETURN 

89® REM BORDER 

900 BORDER CODE bt(U> 

910 LET u *U +1 
S8® RETURN 
93® REM BLINK 
94® OUER 1 

95® IF t'Q-0 THEN LET f®*l: LET 
nOaCOOE b$(U) 

96® IF n®aO THEN LET f®a®: OUER 
0: LET U —U +1: RETURN 
97® LET nO-nO-l 
980 LET u-p(o) 

99® GO SUB 80 

100® LET U®*p(Ol+CODE bt tp <0)) 
1010 LET U-U+l 
1080 RETURN 

1030 REM Spravna odpov«d 
104® LET paCOOE bt(U> 

1050 LET U*U4l 
1080 RETURN ^ 

107® REM NRZEU DYNRM OBR 
1080 LET nt»"" 

1090 FOR i*l TO CODE bt(U) 

110® LET ntanttbt (U4i ) 

111® NEXT i 

iia® if ra*® tmen print rt r+j-i 
,s;nt 

113® IF r'3*l THEN PRINT RT rl.sl 
;n* 

1140 LET U-U4C0DE bt(u)4l 
1150 RETURN 
1160 REM NRBIDKR 
117® GO SUB 80 
118® RRNDOMIZE : REM Sc«eno 
1190 INPUT "Poctt ucastniiu (tax 
(b);")a";h0 

120® IF h0>» THEN GO TO 119® 

121® FOR h *1 TO h® 

128® input "jtieno ";(h>;". ucast 
nil*-";lt. 

183® PRINT PAPER 6, INK 8;AT r®4 
K-1.S0+1;It 
1240 NEXT h 

125® INPUT "Otazcl V 10te (6-12) 
*";pl 

I860 IF PI<6 OR P1>12 THEN CO TO 
125® 

1270 INPUT "Obtiznost 1-3 (l*bal 
a) *";e 

1280 IF 4 <1 OR e >3 THEN GO TO 18 
70 

1285 LET f2*0 

1286 LET (3a® 

1290 FOR 1*1 TO Pi 
1300 FOR hsl TO h® 

1310 IF a>l OR H >*2 THEN GO SUB 
823® ™ 

w 

1340 Z PRINT*RT r®4h-l,*0; PAPER 8 

135®*lIt 0*INT ((PO-I.0001)*RND) 

1350 IF <1*1 THEN GO TO 1450 
1370 LET paINT ((n-0.0001)*RND)4 
1 


FOR j*l TO n 

IF jap THEN GO TO 243® 

LET U aINT ( (P0-1.0001) #RND) 

IF U =0 THEN GO TO 1400 

LET U*p(U)43 

GO SUB 1080 

NEXT j 

LET (8*1 

LET ( 3=0 

GO SUB 2® 

LET f 5 a1 
LET f2 *0 
LET 11■1 

PRINT RT r,S-l;">" 

LET g*INT (t*8/t) 

FOR j-1 TO 16 
PRINT #0JAT 1,32-j-j; 

FOR ial TO 9 
LET lt*INKEYt 

IF ItaCHRt 13 THEN LET i-38 
LET j■17 

IF It*" " THEN GO SUB 8580 
NEXT i 


1600 NEXT j 
161® PRINT RT r411-1,s-i; 

1620 IF llap AND i>*38000 THEN G 
0 SUB 2770: GO TO 1640 
1630 BEEP 1,-6 

1635 GO SUB 2460 , ^ * 

164® PRINT RT r©4h-l,S0; PRPER 6 
; INK 8;" " 

1650 NEXT h 
1660 NEXT a 
1670 GO SUB 223® 

1680 BEEP 0.1,30 

1690 PRINT #0;RT 1,0;" #** ZKOU 
SENI UE UKONCENO *** " 

1700 GO SUB 2460 
1710 GO SUB 2460 
172® BEEP 0.1,30 
1730 GO SUB 266® 

1740 RETURN 
1750 PAPER 1 
1780 INK 7 
1770 BORDER 1 
1780 CLS 
1790 DIM X(13) 

1800 DIM O(5) * 

181® DIM p(100) 

1820 DIM bt(4000) 

1830 LET f*0 

1840 LET f 0*0 

1850 LET 0=1 

I860 LET f2*0 

1870 LET (3*0 

1380 LET h =1 

1890 LET x S =0 

1900 LET US*0 

1910 LET r7*0 

1920 GO SUB 3820 

1930 REM D«f znacly (neni nutne) 

1940 POKE USR "H"40.BIN 0000000® 

1950 POKE USR "H"41,BIN 00011000 

1960 POKE USR "H"42,BIN 00111100 

1970 POKE USR “H"43.BIN 01111110 

1980 POKE USR "H"44,BIN 01111110 

1990 POKE USR "H"+5,BIN 00111100 

2000 POKE USR "H"46.BIN 00011000 

2010 POKE USR "H"47,BIN 00000®®® 

2020 GO TO 2860 
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REM ugliad 
LET 0*1 
GO SUB 20 

PRINT #0; "Hn@B-prarusu j« , 
l-poiracu j« 

FOR 0=2 TO P0 
LET j=l 
LET f 3 = 1 
LET (2=1 
GO SUB 20 
LET (3*0 

IF INKEYt=“" TMEN GO TO 213 


BEEP 0.1,30 
IF INKEYt«" " THEN LET O*p0 
TO 2200 
LET (2*1 
LET (7*1 
GO SUB 2230 
LET (2*0 
NEXT o 
RETURN 
REM Ug»az 
LET 00*0 
LET (2*1 
LET (3*1 
LET u *p(O)43 
IF (7*1 THEN GO TO 2380 
GO SUB 1080 
GO SUB 2460 

LET (3*0 „ „ 

IF R*1 TMEN GO TO 2380 
FOR i*l TO n 









2330 

2340 

2350 

2360 

2370 

2380 

2320 

2400 

24X0 

2420 

2430 

2440 

2450 

2450 

2470 

0 

2480 

2490 

2500 

25X0 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

26X0 

2620 

2630 

2640 

2650 

2660 

2670 

2680 


PRINT RT r*i-l,s; 
FOR j = l TO d 


r OR jj 
PRINT 


NEXT j 
NEXT i 
LET j»l 
LET r 7 >0 
GO 5U6 26X0 
LET f£*0 
RETURN 

LET u*p(o>+3 
GO TO X430 
REM cekani 2s 
FOR 6*1 TO 90 

IF INKEY*t>" THEN LET b*10 

NEXT b 
RETURN 

REM Uuaaz bodovy 
GO SUB 730 
PRINT RT rl,sl; 

FOR i*1 TO d 
PRINT - 
NEXT i 
RETURN 

REM Uyberovy kurzor 
PRINT RT r+kl-l,S-l; " " 

LET kl*kl+l 
IF kl>n THEN LET kl*l 
BEEP 0.05,18 
print RT r+kl-l,s-l; 

LET i*i+5 
RETURN 

REM uyhodnoceni 
FOR i*l TO h0 
LET j*oU)/p 1*100 
IF j>*e THEN LET j**"DOBRE 

2690 IF j >**♦(100-Wi/2 THEN LET j 
k*"UVBORNE “ 

2700 IF j*100 THEN LET j**"SKUEL 

I?10 IF j<» THEN LET j*«"SPRTNE 

2720. PRINT RT r0+i -1,S0+X3; j*; IN 

2730 NE*XT i 
|735 PRINT ttO ;RT 

2740 
0 

2750 RETURN 
2760 REM Spravne 
2770 BEEP 0.1,23 
2780 PAUSE 10 
2790 BEEP 0.1,27 
2800 PAUSE 10 
28X0 BEEP 0.4,30 . 

2820 LET Oth>*0(K)+l 

2830 PRINT PAPER 8; INK 8;AT T0+ 

h-l,s0 + l2+o th>; 

2840 RETURN 
2850 REM Menu 
2860 LET 0*1 
2870 LET fl*0 
2880 FOR i*1 TO 6 
2890 LET 0li)*0 
"•900 NEXT i 
29X0 PAPER X 
2920 INK 7 

1 


2930 BORDER 
2940 CLS 
2950 PRINT 
OR * * * 
2960 PRINT 


*** PROFES 


tSBSSssa 


2970 PRINT 
k 1986" 

2980 PRINT 
2990 PRINT 

> " 

3000 PRINT 

3010 PRINT •*uou» rezie: 
3020 PRINT 
3030 PRINT 
3040 PRINT 
3050 PRINT 

§060 PRINT 
3070 PRINT 

3080 PRINT."HOdnoceni 
OU databazx: 

3090 PRINT 
3100 PRINT " 

31X0 PRINT " 

+(100-M)/2); 

3120 PRINT " 

3130 PRINT 


c Martin Stepan* 


(verze 1.0 


- vyk tad" 

- zkouseni" 

- nahrani databa 


pro nahran 


;u;" X" 
X" 

INU 


fc** V I new UU 9UO 8840 
k**"n" THEN GO SUB 3220 
ki*"Z" THEN GO SUB 1170 
TO 2860 


SKUELE * 100 X" 

UV BORNE > "; INT (w 
H'* 

OOBRE > 

SPATNE < 

3140 PRINT AT 21,0;"B*Z* 

ERSE 1;**; " (";P0-1; ,, +l/-;p (po) ♦ 
266*C00E b* (p (p0) ) +CODE b*(p(p0> 
+ 1 ) + 2 ; ) 

3150 IF INKEY**"" THEN GO TO 3X5 
0 

3160 LET k**INKEY* 

2J-2S It then go sub 20*0 

3180 IF - - -- 

3190 IF 

3200 GO _ _ 

3210 rem Nahrani databaze 
3220 CLS 

3230 INPUT "Nazev databaze*";** 
3240 input “Kazeta/Microdrivc? < 
k/*) ";k* 

3250 IF k*■"■" THEN GO TO 3430 
3260 LOAD *0*"1" DATA pO 
3270 LOAD e**"2" DATA b*<) 

3280 LOAD t**"3" DATA XO 
3290>LET p0*x(1) 

3300 LET n*X(2> 

33X0 LET »*X13) 

3320 LET r *X(4) 

3330 LET **X(5) 

3340 LET r0*x(6) 

3350 LET S0*X 17) 

3360 LET t*X(8) 

3370 LET d*X(9) 

3380 LET W*X(10) 

3390 LET q*x(XX) 

3400 LET rl*x(12) 

34X0 LET S X*X(13) 

3420 RETURN 

3430 LORD *"•";l;**+"l" ORTA p() 
3440 LOAD *"»";X;«*+"2" DATA b*( 


) 

3450 LOAD *"»";1;**+"3' 
3460 GO TO 3290 


DATA X() 
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Ing. Martin §t£p£nek 


Jordana Jovkova 3256 
Praha 4-Modfany 

Program TESTEDITOR je pomucka pro vytvgfenf databgzi vlastnich testu. 
Editor je graficky orientovin, uiivatel maluje a popisuje obrgzek a datab&ze se 
paralelng vytvtfi sama. Pomoci vestavgngho monitoru mute zasvgceny uiivatel 
pracovat i na urovni pfimych instrukci databgze. Toto neni nutng, ale za 
ngkterych okolnosti to mu2e byt vyhodng. Program TESTEDITOR je vytvofen pro 
pogitag ZX-Spectrum a jeho pPenos na jiny pogitag se nepfedpoklgdg, protoie 
databgze v nftm vytvofeng jsou funkgng nezgvislg na typu cflovgho po£ita£e! 


Zgkladnf principy 
tvorby vlastmho testu 


Kaidy test je tvoren jednim statickym 
obrgzkem a sadou obrgzku dynamic- 
kych, kterg se postupng kreslf pres 
obrgzek staticky. Dynamicky obrgzek 
pfitom vidy odpovidg jedng otgzce 
testu. Pfi pfechodu od aktuglni otgzky 
na ngsledujici se posledni dynamicky 
obrgzek smaie (pfi zachovgni static- 
k6ho) a vykresli se obrgzek novg otgzky 
pfes staticky podklad. 

Souggsti kaid6 otgzky testu je vlaStni 
otgzka (slovni nebo grafickg, jako napf. 
zobrazeni polohy mgsta), ngkolik na- 
bizenych odpovgdi pro vybgr a sprgvng 
odpovgcf. Vlastni otgzka je vidy zachy- 
cena v dynamickgm obrgzku (tedy 
napsgna nebo nakreslena). 

Zpusob nabizeni odpovgdi je dvojf. 
PPi pevnych odpovgdich jsou tyto od¬ 
povgdi souggsti pffslu§ngho obrgzku 
a jsou do ngj pffmo vepsgny. Kaidg 
otgzka zde mg vidy stejng nabizeng 
odpovgdi. Pfi nghodnych odpovgdich 
nejsou odpovgdi souggsti obrgzku 
a teprve v reiimu zkouSeni se generuji 
a doplftuji do dynamickgho obrgzku. 
V tomto pfipadg mg stejng otgzka pfi 
ngkolika vyskytech jing nabizeng odpo- 
vgdi (jsou generovgny nghodng z mno- 
iiny vSech moinych odpovgdi v b&zi 
dat). Prostor nabizenych odpovgdi mu¬ 
st byt na stinftku pfesng vymezen, 
protoie pfed texty jednotlivych odpo¬ 
vgdi se pohybuje vybgrovy kurzor 
a v pfipadg reiimu nghodnych odpo¬ 
vgdi se prostor takg must mazat. Oblast 
je urgena levym hornim rohem, pogtem 
nabizenych odpovgdi a maximglni dgl- 
kou odpovgdi ve znacich. 

Sprgvng odpovgdT otgzky testu zde 
figuruje jako ngzev dynamickgho 
obrgzku. Prostor pro vypsgni sprgvng 
odpovgdi musi byt opgt pfesng urgen, 
a to levym rohem (odpovgcf je jen 
jedna a maximglni dglka je zngma). 

Staticky obrgzek tvofi nemgnny pod¬ 
klad vSech otgzek. Musi respektovat 
oblasti pro nabizeng odpovgdi a pro 
zobrazeni sprgvng odpovgdi. Navic 




musi mit vymezenou oblast pro zobra- 
zovgni prubgingho hodnoceni uCastni- 
ku. V tgto obtasti se v reiimu zkouSeni 
vypisuji jmgna zkou§enych a jejich 
aktuglni hodnoceni. Oblast je stanove- 
na udgnim levgho horniho rohu 
a pogtem ufiastnfku. Jeji dglka je vidy 
26 znakO. Na prvni pozici se pohybuje 
kurzor vyzvy, na druhg pozici zaging 
jmgno a na tfingctg pozici je zaggtek 
oblasti hodnoceni. 

Staticky obrgzek i obrgzky dynamic- 
kgr mohou vyuiivat grafiky, textu 
a barev. Barvy uiitg v dynamickgm 
obrgzku by mgly respektovat barvy 
statickgho obrgzku v mfstech, do nichz 
se dynamicky obrgzek zobrazi. Nabize¬ 
ng odpovgdi a sprgvng odpovgcT se 
vypisuji v naposled urgenych barvgch 
v rgmci dynamickgho obrgzku. Jmgna 


ugastniku a jejich hodnoceni naproti 
tomu zachovgvaji podkladovou barvu 
oblasti ve statickgm obrgzku. 

Dai§i parametry databgze jsou: doba 
cekgni na odpovgcf (musi zahrnovat 
nejen dovoleny gas na pfemySleni, ale 
takg dobu potfebnou k manipulaci 
s vybgrovym kurzorem) a mez Spat- 
ngho hodnoceni. Tato mez je uspgg- 
nost odpovgdi Cigastnika, kterg jii nevy- 
hovuje poiadavkum (slovni hodnoceni 
SPATNE). Mez se urguje v procentech. 
Nejvyggi hodnoceni SKVELE je pak 
pouze pro 100% uspggnost. Interval 
mezi SKV£LE a $PATN£ je rozdglen na 
dva stejng podintervaly, kterg jsou 
znageny VVBORN£ a DOBRE. 


Hlavnf menu 
programu TESTEDITOR 


Po nahrgni a spuStgni programu se 
dostgvgme do hlavniho menu. Jsou zde 
pfikazy pro nahrgni databgze do po- 
gftage („l*Moad), uchovgni databgze 
vytvofeng editorem („s“-save) a ovgfe- 
ni nahrgvky databgze („v“- verify). Jako 
vngjSi pamgf pro uvedeng tfi pfikazy 
slouif bucf magnetofon nebo ZX Micro¬ 
drive. 

DalSi pfikaz „n“ umoihuje vybudovat 
novou databgzi. Pfi jeho uziti jsme 
dotgzgni na barvu okraje, papiru 
a inkoustu a potg vstoupime do vlast- 
nfho grafickgho editoru, ktery je po- 
psgn v samostatng kapitole. 

Pfikazem pro doplngni databgze 
„d“ (doplh) muieme k bgzi dat nahrang 
pomoci load „l“ pfidgvat dal§i obrgzky, 
a to bucf na konec nahrang databgze, 
nebo z nahrang databgze zachovat jen 
staticky obrgzek (ktery je mo2no jeStg 
doplnit) a pfidgvat novg dynamickg 
obrgzky za ngj. Druhg varianta je 
vyhodng pro vyuiiti stejnych zgkladu 
statickych obrgzku pro vice databgzi 
(napf. obrys Evropy pro databgze mgst, 
mofi a pohoff). Zpusob doplngni dato- 
vg bgze se urguje v menu, kterg se 
objevi po uziti pfikazu „d“ hlavniho 
menu. 

Ogle mgme k dispozici pfikaz 
k prohliieni hotovych obrgzku („p“ 
-prohliieni). Pfi jeho uiiti se ngs pro¬ 
gram zeptg, jestli si pfejeme zobrazit 
podkladovy staticky obrgzek nebo jen 
zobrazovat obrgzky dynamickg. Poia- 
dovang obrgzky se zadgvaji pofadovym 
gisiem, pfigemi gislo jedna odpovidg 
statickgmu obrgzku. Maximglni dovole- 
ng gislo obrgzku je 80, protoie gisla 81 
ai 100 jsou rezervovgna pro segmenty 
(1 a t 20). 

Pfikazem volgni monitoru „m“ (moni¬ 
tor) vyvolgme zvlggtni program, ktery 
umoini pracovat s databgzi na urovni 
jejich kgdO. Monitor bude popsgn takg 
ve vlastni kapitole. 

Pod nabidkou pfikazO hlavniho me¬ 
nu se zobrazuji zgkladnf informace o 
sougasng databgzi. Je to poget obrgz¬ 
ku dglka a volny prostor. Zgpis 
,,30+1/2800 zbyvg 1200“ znameng, ie 
databgze mg 30 dynamickych obrgzkO 
a jeden staticky, zabirg 2800 jednotek 
pamgfovgho prostoru a zbyvg 1200 
jednotek votnych pro dalSf roz§ifovgni. 



Graficky editor 

Graficky editor umoifiuje uzivateli 
kreslit obrazek a automaticky vytvafet 
bGzi dat. Do grafickaho editoru se 
dost£vdme po uiiti pfikazu „n“ a „d“ 
z hiavniho menu. Seznam prikazu edi¬ 
toru a zpusob jejich voiani obdriime po 
stisku kl&vesy „n“ (napovSda) v reiimu 
editoru. Editor muie pracovat v m6du 
grafick6m (jemni grafika 176 x 256 
bodu) nebo v m6du textov6m (22 fadku 
po 32 znacich). Pfi vstupu do editoru 
jsme v reiimu grafickgm a do texto- 
v6ho se muieme dostat stiskem „t“ 
(text). V textovam m6du muieme uiivat 
kurzory a zapisovat znaky. Zp§t do 
grafickaho zpusobu prace se dostane- 
me uiitim klavesy ENTER. V grafickam 
reiimu muieme pohybovat grafickym 
kurzorem bucT pomalu kurzorovymi 
kiavesami nebo rychle kiavesami 5, 6, 
7, 8 (tj. kurzory bez §iftu). Polohu 
grafickaho kurzoru muzeme taka zadat 
hodnotovS pfikazem (hodnoty), 
ktery se dotaie na soufadnice x a y. 

Bod vyneseme klavesou „ 0 “ a kur- 
zor spojime s naposled vynesenym 
bodem useCkou stiskem klavesy 
„ENTER“. Marne zde dale moinost 
nastavov&ni barev okraje „o“, papiru 
»P“ a inkoustu „i“. Obrazovka se male 
prikazem „v“ (vymaz), ktery zaroveh 
nastavi naposled stanoven^ barvy pro 
celou plochu stinitka. Jinak se totii 
naposiedy stanovena barvy uplatftuji 
jen v n&sledujfcich vynesenich bodu 
a znaku. DalSi moinosti je zdpis prikazu 
zvukovaho signaiu „z“ (zvuk) a blikdni 
doposud nakreslenaho obrazku „b“. 
Pro lep§i posouzent polohy bodu vzhle- 
_dem k textovym CtvereCkum siouii 
vyneseni mrizky „m“. Pokud se do- 
pustime pfi kreslenf chyby, muieme 
posledni pfikaz (nebo s6rii prikazu) 
vymazat klavesou „SPACE“ (pfi ma- 
zanf se vypi§e n&zev ruSenaho prikazu 
a jeho parametry). 

Editor umoiftuje definovat ai 20 tzv. 
segmentu obrazu (znaCeni Cislem 1 ai 
20). Segmenty jsou vhodna pro opaku- 
jici se Casti dynamickych obrazku. 
Pokud napriklad jako segment nedefi- 
nujeme trojuhelnik, muieme v dyna¬ 
mickych obrazcfch testu dopravnich 
znaCek volat tento segment pokaida, 
kdyi se ma kreslit trojuhelnikova 
znaCka. Nemusime tedy trojuhelnik 
stale znovu kreslit. Pro programatory je 
zrejm6 chapani segmentu jako podpro- 
gramu. Segmenty mohou vyraznS §etfit 



Graficky sfh6ma programu 

pamSf. Segment muieme definovat 

tak, ie na dotaz „Nazev obr. C_“ 

odpovfme znakem „***. Jsme dotazdni 
na Cislo segmentu a pota pfevedeni do 
grafickaho editoru. Definici ukontime 
stejnS, jako by Slo o dynamicky 
obrazek, tedy „k“. Segmenty muieme 
definovat kdykoli v prubShu tvorby 
datov6 baze. V definici segmentu ne- 
smime ov§em uiivat voiani jinaho seg¬ 
mentu! Nadefinovanb segmenty se 
v grafickym editoru volaji prikazem 
„s“ (segment) a pak Cistern segmentu. 
Abychom segmentem mohli nadefino- 
vat obrazec, ktery bychom mohli pfi 
jeho voiani umisfovat v ruznych polo- 
hach stinitka, disponuje editor pfika- 
zem „r“ pro relativni spoj dvou bodu. 
Tak tfeba v segmentu nadefinujeme 
Ctverec uiitim Ctyf pfikazu „r“ (bez 
vyneseni bodu na zaCatku). Kdyz po- 
tom v ramci nSkteraho obrazku vynese¬ 
me bod a zavoiame tento segment, 
vykresli se nam Ctverec v poioze urCe- 
nC vynesenym bodem. Je zde ovSem 
tfeba jist6 opatrnosti, abychom napfi- 


klad nevynesli bod do rohu 
stinitka a nechtSli relativni 
obrazec vykreslit mimo hra- 
nice obrazovky. Pro tyto 
a nfekterC dalSi zaiudnosti 
pfikazu „r“ doporuCuji jeho 
uiivani jen zkuSenym uiiva- 
telum programu TESTEDI- 
TOR. Pfikaz relativniho spo- 
je „r“ ma oproti absolutnimu 
spoji „ENTER“ je§tfe jista 
omezeni, protoie nejdel§i 
useCka smi byt dlouha nej- 
vy§e 127 bodu (del§i useCky 
vytvorime nastavenim). Re- 
zim grafickSho editoru opus- 
time stiskem „k“. 

Vnitfnl stavba datable 

Pro b§iny navrh databazi 
testu vystaCime s dosud po- 
skytnutymi informacemi. Pro 
nCktera rafinovanfejSi vlast- 
nosti bazf nebo slozit§j§i 
opravy a upravy v§ak muie 
byt vhodna vedCt n§co o jejf 
strukture. Tyto znalosti jsou 
taka nezbytna pro praci 
s monitorem. Databaze je 
tvofena pfistupovym vek- 
torem p (), hlavnim infor- 
maCnfm vektorem b $ () 
a tfinacti pomocnymi pro- 
m§nnymi. Obrazky jsou v da¬ 
tabazi rozlozeny do sarii 
operaci. Jsou tedy vlastna 
urCeny jakymsi programem 
ve zviastnim jazyce, jehoi 
pfikazy jsou uvedeny dale. 
Program PROFESOR (verze 
1.0)) a program TESTEDI- 
TOR (verze 1.0) rozumi 
pfikazu m z tab. 1. 

Operace s parametry jsou uloieny ve 
vektoru b$(). ZaCatky jednotlivych 
obrazku v b$() jsou oznaCeny odkazy 
uloienymi ve vektoru p(), jehoi index 
pfedstavuje Cislo obrazku (tj. kdyi 
p (3)=2086, tak obr. 3 zafcina v bS() 
od buhky s indexem 2086). Daika 
sekvence pfisluSejici obrazku je dana 
obsahem buhky pod ukazatelem zaCat¬ 
ku a buftky v b$() naasledujfci (256 
* prvni buhka + druha buhka). 

Pouiiti MONITORU 

Monitor siouii pro pfimC prohliieni 
a modifikaci baze dat. Odkazy pfistu- 
povCho vektoru vypiSeme pfikazem 
„p“, Ciselny vypis databaze ziskame 
pfikazem „c“ (Ciselny) a slovni vypis 
operaci s parametry pfikazem „o“ 
(operace). Ciselny obsah muieme 
zmCnit voianim pfikazu zmSny „z“. 


Tab. 1. Pfikazy 


K6d 

Parametry 

Vyznam 

0 

delka, nazev 

— naCteni nazvu dynamickCho obrazku 

1 

x, y 

— vyneseni bodu v mista se soufadnicemi x, y 

2 

x, y 

— spojeni naposled vynesenaho bodu s x, y 

3 

fadek, sloupec 

— nastaveni textovaho kurzoru 

4 

dClka, znak ... 

— vypsani retazce znaku 

5 

barva 

— nastaveni barvy inkoustu * 

6 

barva 

— nastaveni barvy papiru * 

7 

8 

9 

dx, dy 

— vymaz stinitka a nastaveni barev 

— kratky zvukovy signal 

— spoj od naposled vynesenaho bodu do x+dx, y+dy 

10 

Cislo segmentu 

— vykresleni segmentu obrazku 

11 

barva 

— nastaveni barvy vnSjSiho okraje * 

12 

poCet 

— blikani dosud nakreslena Casti 

13 

Cislo 

— na&tenf Cisla pozice spravna odpov§di 


V tomto reiimu muieme psat Cfsla, 
ktera pfepiSi puvodni obsah nebo 
stiskneme jen „ENTER“ a obsah buftky 
zGstane beze zm§ny. UkonCenf reiimu 
se d§je zapisem znaku „k“ (konec). 
Abychom poznali, kter6 dasti obrazku 
pfisluSi urCita operace nebo naopak, 
muieme pouiit reiimu trasovani kres- 
by (pfikaz „t“). V reiimu trasovani 
krokujeme kresbu klavesou „k“ nebo 
klavesou „t“ muieme provadCt kroko- 
vani zaroveh s vypisem pravfi pro- 
vad§n6 operace. Trasovani muieme 
pferuSit podrienim kiavesy „SPACE“. 
Monitor opou§time stiskem „k“ (konec) 
a tim se navratime do hiavniho menu 
programu. 


* K6dy barev jsou nasledujici: 0 — Serna, 1 — tmavS modra, 2 — Cervena, 
3 — fialova, 4 — zelena, 5 — svCtle modra, 6 — iluta, 7 — biia (kddovani podle 
matefskCho poCitaCe Sinclair ZX Spectrum). 



35 


mikroelektronika ’88 











Vypis programu „Testeditor“ 


GO 

GO 


GO 

GO 


1 GO TO 7000: REM Studany Itl 

3 GO TO 7001: REM HO fly *taet 

10 PRINT 110; PRPER 0; INK 7;RT 
0,0, INUERSE 1;" UOLNYCM: “;400 

0-b0,"ReZIM: "if 9/ "" , , 

11 PRINT 00;AT 1,36;" "i PAPE 

R ie; INK 7*(i6<4) . "I f *; 18; PRPER 

i9; INK 7*(»9<4); f, p";i9 

12 PRINT 00;RT 1,0;“ x*";x;" y 
u ,"xt*";xt; " yt*";yt;" 

13 LET 1*1 _ 

14. IF INKEY**"" THEN LET a *35 

15 IF INKEY*< >"” RNO *>0 THEN 
LET 4*0-1: GO TO 15 

16 IF INKEY**"" THEN GO TO 16 
IS LET K * =INKEY * 

20 IF r*«"TEXTOUY " THEN GO TO 
50 

22 IF 1*»CHR* 8 THEN GO SUB 10 
0: GO TO 12: REM viivo „ „ ^ . 

24 IF 1*=CHR* 9 THEN GO SUB 11 
0. GO TO 12: REM VpeaVO__ „ 

26 IF fc**CHR* 10 THEN GO SUB 1 

20: GO TO 12 : REM dd tu _ . 

27 IF k*»CHR* 11 THEN GO SUB 1 
30: GO TO 12: REM nahoeu „ 

28 IF 1**"S" THEN LET 1*16: 

SUB 100. LET 1*1: GO TO 12 

29 IF 1*="8" THEN LET 1*16: 

SUB 110: LET 1*1: GO TO 12 

30 IF 1**"6" THEN LET 1 *16: 

SUB 120: LET 1*1: GO TO 12 

31 IF 1**"?" THEN LET 1*16: 

SUB 130: LET 1*1: GO TO 12 

32 IF l»*CHR* 13 THEN GO SUB 8 

00 

33 IF l**"." THEN GO SUB BS0 

34 IF l**"e" THEN GO SUB 740 

35 IF 1**"S" THEN GO SUB 750 

36 IF 1*«"0" THEN GO SUB 710 

37 IF l**"t" THEN GO SUB 730 

36 IF t*«" " THEN GO SUB 900 

39 IF l*="h" THEN GO SUB 700 

40 IF l*a"Z" THEN GO SUB 580 

41 IF l*«"t" THEN GO SUB 960: 

RETURN 

42 IF t**"0" THEN CO SUB 600 

43 IF l*="n" THEN GO SUB 6600 

44 IF l**"i" THEN GO SUB 620 

45 IF K*="»” THEN GO SUB 6500 

46 IF l**"p" THEN GO SUB 640 

47 IF l*="v" THEN GO SUB 660 

48 IF 1**"b" THEN GO SUB 670 

49 GO TO 10 

50 IF 1*«CMR* 6 THEN LET P*l; 
GO SUB 200: GO TO 12: REM VUvo 

52 IF 1**CMR* 9 THEN LET p*l: 
GO 5U8 220: GO TO 12: REM VPraVO 
54 If l**CHR« 10 THEN LeT p*l: 
GO SUB 240: GO TO 12: REM dOlU 
56 IF * **CHR* 11 THEN LET P -1: 
GO SUB 260: GO TO 12: REM nahor 

U 87 IF 1**CHR* 13 THEN LET P-1: 
LET r * *'' GRRFICKY " : PRINT RT 9 t * 

xt; OUER 1; PRPER 8; INK 8;" ": 
GO TO 10 

58 PRINT RT yt,xt;t»; 

62 IF P*1 THEN GO SUB 80 
64 LET Xt«Xt+l 

66 IF Xt >31 THEN LET Xt«0 

67 PRINT RT yt,xt; OVER 1; FLR 
SH 1; PRPER 8; INK 8;" ” 

68 LET b*(b®>«l* 

69 LET b0«b0+l 

70 LET b*(P1)*CHR» (CODE b*(Pl 
> + 1> 

78 GO TO 12 

80 LET b*(b0)«CHR* 3 

81 LET b*(b0+l)-CHRf yt 
62 LET b*(60+2»*CMRf Xt 

83 LET b«(b0+3)»CHR* 4 

84 LET p1*60+4 

85 LET b*(pl)«CHR* 0 

86 LET b0*b®+5 

88 LET P*0 

89 RETURN 


99 

100 

RPER 

101 

102 

103 

104 

jX 10& 

109 

110 
RPER 

111 

112 

114 

116 

lit 

119 

120 
RPER 

121 

122 

124 

126 

128 


IF M IO*0 THEN PLOT OUER li P 
8; INK 8; x ,y 
LET X*X-1 

IF X <0 THEN LET X»0 

PLOT*OUER 1; PRPER 8; INK 8 

RETURN 

IF M (10*0*THEN PLOT OUER 1; P 

e; ink 8;x,y 

IF T X>255 k THEN LET x*2S5 
PLOT^OUER 1; PRPER 8; INK 8 
RETURN 

IF M k0«0 g THEN PLOT OUER 1; P 
8; INK 8;x,y 

i ft u*u~K 

if y <® then let 

PLOT^OUER li PRPER 8; INK 6 


RETURN 


129 REM Nahoeu 

130 IF 10*0 THEN PLOT OUER 1; P 
RPER 8; INK 8;x,y 

131 let y*y + i 

132 IF y>175 THEN LET 9-175 
134 LET K0*0 

136 PLOT OUER 1; PRPER 8; INK 8 
'ldl RETURN 


199 REM Text vtavo 

200 PRINT RT vt,x t; OUER 1; PRP 
ER 8; INK 8;" * 

201 LET Xt*Xt-l 

202 IF xt<0 THEN LET Xt*0 

203 PRINT RT yt.xt, OUER 1; FLR 
SH l; PRPER 8; INK 8;” ” 

204 RETURN 


219 REM Text vpravo 

228 PRINT RT yt,xt, OUER 1; PRP 
ER 8; INK 8;" " 

221 LET xtext+l 

222 IF X t >31 THEN LET Xt=31 

223 PRINT RT J 9 t , x t; OUER 1, FLR 
SH 1; PRPER 8 ; INK 5, " ” 

224 RETURN 

239 REM Text dOlU 

240 PRINT RT 9 t,xt; OUER 1; PRP 
ER 6 ; INK 8 ," " 

241 LET 9 t *9 t 4-1 

242 IF 9 1 >21 THEN LET 9t*21 

243 PRINT RT yt,Xt; OUER 1; FLR 
SH 1, PRPER 8 ; INK 8 ;" " 

244 RETURN 

259 REM Taxt nahoru 

260 PRINT RT yt,Xt; OUER 1; PRP 
ER 8 ; INK 8," " 

261 LET 9 t *9 t-1 

262 IF 91 <0 THEN LET yt*0 

263 PRINT RT yt,xt; OUER 1; FLR 
3M l; PAPER 8 ; INK 8 ;" " 

264 RETURN 


579 REM Zvuiovy signal 
530 LET b*(b0)*CHR* 8 

582 LET 60*b0+l 

583 BEEP 0.1,30 

584 RETURN 


si 


599 

600 
602 
604 
606 
608 
610 

619 

620 
622 

623 

624 
626 
628 
630 

639 

640 

642 

643 

644 
646 
648 
650 


REM Bordar 

input "Baeva oiraja*";,} 
BORDER j 

LET b*(b0)*CHR0 11 
LET b*(b0+l)*CMR* j 
LET b0*b0+2 
RETURN 
REM InlOUSt 

INPUT "Baeva inioustu*";j 
INK j 
LET i8*j 

LET b*(b0)«CMR* 5 
LET b*(b0+l)-CHR* j 
LET b0*b0+2 
RETURN 
REM PlPie 

INPUT "Baeva papiru«";J 
PRPER j 
LET l9*j 

LET b*(D0)-CHR* 6 
LET bi(60+1)«CMR* j 
LET 60=60+2 
RETURN 
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659 REH Uynaz 

660 CLS 

662 LET b*tb0>«CHR* 7 

664 LET 60*60+1 

666 RETURN 

669 REH BlUini 

67© input "Kolineat*";j 

672 LET 6*(b0)»CHR* 12 

674 LET b«(b0+l>*CHR* j 

676 LET 3 = 60+2 

678 RETURN 


699 REH HOdrtOia 

700 OUeR 1: PLOT X,y 

701 INPUT "x*";x 


38^§VY;r'6&ER 0 

706 RETURN 


709 REH Plot 

710 PLOT OUER 0;X,y 

711 LET 10=1 

712 LET XS=X 
714 LET ys«y 

716 LET bt(60)*CHR* 1 
716 LET b*(b@+l>*CHR* x 
720 LET b*(60+2)*CHR* 9 
722 LET 60*60+3 
724 RETURN 


729 REH Texty 

730 LET e*="TEXTOUY " ^ m 

731 PRINT RT yt,xt; OUER 1; FLR 
SH l; PRPER 8; INK 8;" 

732 RETURN 


739 REH Rai draw 
^ 740 ^ IF^RBS (XS-XM1S7 OR AB5 ( 

742 * PLOT XS,9S: DRRU x-xs,y-ys 

743 LET b*(60)=CHR* 9 

744 LET b*(b8 + lt =CHR$ (x-XS+126 

) 

745 LET b*(60+2)=CHR* (y-ys+128 

746 GO TO 808 

749 REM Segment 

750 LET U5=p0: LET U4*U : LET U3 

752 INPUT Cisio segaentu (1-20 

J 7si°LET b*(60)=CHR* 10: LET b*( 
bO+l)=CHR$ 0: LET 0*0+80 
754 GO SUB 3000 ^ ^ 

756 LET p0*uS: LET U=V4: LET 60 
*U3 

758 LET 60»b0+2 

759 RETURN 


799 REM Deaw 

600 PLOT OUER 0;xs,ys 

801 DRRU OUER 0;x-XS,y-9S 

802 LET b*(b0)=CHR* 2 
804 LET b*(b0+l)*CHR* X 
806 LET b* lb0+2> *CHR* 9 
808 LET 60=60+3 

810 LET XS=X 

812 LET 9S=9 

813 LET 10=1 

814 RETURN 


849 REM PseudOPlOt 

850 PLOT OUER 0;x,y 
852 LET XS=X 

854 LET ys =M 
856 LET 10=1 
858 RETURN 


899 REH Mazani 

111 I.p<r«>* 

l 

904 LET i 0*i 

905 LET j *COOE b»( x ) 


910 IF j *7 OR J»8 OR j*32 THEN 

^Is'lF*!*! OR j»2 OR J *3 OR j*9 

920 N IF E j*5 0R 3 j*6 OR j»10 OR 
11 OR J *12 OR j = 13 THEN LET i=i + 

*921 IF j*0 OR j *4 THEN LET i*i+ 

a 922 D IF b i<b0 1 THEN 60 TO 904 
926 LET 60*i0: LET U*i0: GO SUB 

?hen 3 go to 930 PRINT 
926 LET u=U+l. LET 1*1-1: PRINT 
COOE b*(U>;" 

930 IF b0*p (P0-1) +2 

EN LET p0*p0-l: LET b0=P (P0-D +2 

931 INPUT "Datsi aazani 7 ia/n> 

gia^iET f7«0: IF lt*"a" THEN LE 
T ?7-l: GO SUB 935: GO TO 901 

935 REM Obeazlu 

936 LET j =b0-P^P®. . : Zt 

9. _ 

' /256 


^942 LET b*(p(P®-V»+l> e CHR* (INT 

9^3* IF * f 1 ^h1n 6 RETURN 

944 LET 0*1 

941 LET S O*P0?1® IF f 9 > *80 THEN 

L 947°IF 9 OOl THEN 60 SUB 3000 

948 PLOT OUER 1; PRPER 8 ; INK 8 
;x,y: LET 10*0 

949 LET 1**"" 

950 RETURN 

960 IF 10*0 THEN PLOT OUER 1; P 
RPER 8 ; INK 8 ;x ,9 
962 RETURN 

1000 CLS 

1001 DIM Xi13) 

1002 DIM P (100) 

1003 OIH b*(4000) 

1004 OIH a(704) 

1005 LET X *0: LET XS*X 

1006 LET y= 0 : LET ys=y 

1007 LET X t =0: LET 9 t*0 

1008 LET 10*0 

1009 LET r**"GRRFICKY" 

1010 LET P0*2 

1011 LET b0=3 

1012 LET 1*1 

1013 LET f8*0 

1014 LET f*0 

1015 LET fl*0 

1016 LET f9*0 

1017 LET P*1 
1016 LET f 0 *0 

1019 LET f7=0 

1020 LET i8=7 

1021 LET i9*1 

1022 RETURN 


uytvoreni statickeho 


102<t REH Nova database 

1025 LET p dial 

1026 PRINT ” 
obrazku" 

1030 input "Barva okraJt«";j 
1032 LET b*(b0)»CMR* 11 
1034 LET b*(b0 + U«CMR* j 
1036 INPUT Barva papiro«“;j 
1036 LET b*(b0+2)*CHR* 6 
1040 LET b$ (b0+3) »CHR* j 
1042 INPUT "Barva inkoustua";j 
1044 LET b$(b0+4taCHRf 5 
1046 LET b$<b0+5)«CHR* j 

1048 BEEP 0.1,30 

1049 BORDER CODE b*(b0+l) 

1050 PAPER CODE b*ib0+3) 

1051 INK CODE b|(b0+5> 

1052 LET b* (bB+6)=CHR* 7 

1055 CLS 

1056 LET b0*b0+? 

1057 PLOT 0,0 

1058 60 SUB 10 
1060 BEEP 0.1,30 
1062 LET i= b©-3 

1064 LET b$ (1)xCHR* (INT (i/256) 


THEN LET U=U0 


1066 LET b»(2)sCHR* <i-256*INT ( 
i /256)) 

1066 INPUT "Bevne nebo Bahodn* 0 
dpovedi?"; kf 
1070 LET R»0 

1072 IF k$a"p" THEN LET R«1 

1073 60 SUB 6500 

1074 PRINT #0;AT 0,0;"Levy horni 
roh nabidky odpovedi:" 

1075 PAUSE 200 

1076 INPUT "radek*";r 
•s toupee*"; * 
‘Hax.detka odpovedi*" 


1078 INPUT 
1060 INPUT 
;d 

1062 INPUT 
ovadi; n 
1084 FOR 


"Pocat nabizenych odp 


__ _ to r+n-l 

1086 PRINT AT i,ft-1;i -r +1; 

1086 FOR j«l TO d 
1090 PRINT "0''; 

1092 NEXT j 
1094 NEXT i 

1096 PRINT #0;AT 0,0;"Levy roh s 
pravna odpovtdi:" 

1097 PAUSE 200 

1098 input "radek»";ri 
1100 INPUT "stoupee-";si 
1102 PRINT AT rl,sl; 

1104 FOR iel TO d 

1106 PRINT "S"; 

1110 PRINT 1 #©;AT 0,0;"Levy horni 
roh hodnoceni : 

1111 PAUSE 200 

1112 INPUT "radek»";r0 
11X4 INPUT -Stoupee-";*© 

1116 Input "Pocat ucastmku (»ax 
5)j 


1117 LEI 
1116 FOF 


THEN 60 


till PRINT AT T r0+i-1,S0;">UMENO. 

.HODNOCENI...." 

1122 NEXT i 

1130 INPUT "Doha cekani na odpov 

1132 *prINT #0;AT 0,0;"Haz spatne 
ho hodnoceni v " 

1133 PAUSE 200 w _ * twt 

1134 input "Haz (nahodne ,(INT 
(100/n) ) ;•/.)-";*» 

-PRINT S0..RTL 8, 


1138 CLS : LET 0«1: GO SUB 3000: 
BEEP 0.1,30 


1149 REM Dynaaicke obrazky 
1160 LET p (P0)*b0 
1152 LET P0-P0+1 

1154 LET b0»b0+2 

1155 LET Xs0: LET U-0: LET X t-0 : 
LET yt*0. LET XS*0. LET ys=0 

1160 INPUT "Nazev obr.(P0-1); 
«“;*$: PRINT AT rl,Sl;k§ 

1161 LET f9>0: IF k*- f '< 

SUB 9500: 60 TO 1173 

1162 LET b*(b0)»CHR* 0 

1164 LET bftbO+l)«CHR* LEN k % 

1165 LET b0«b0+l 

1166 FOR i*l TO LEN k$ 

1168 LET bt(b0+i)»k$(i TO i) 

1170 NEXT i 

1172 LET b0*b0+LEN k* + l 

1173 PLOT 0,0 

1174 GO SUB 10 

1175 IF d-0 OR f9 > *80 THEN GO TO 
1180 

1176 INPUT “Cislo spravne odpove 
di«";k 

1177 LET b*(b0)*CHR» 13 
1170 LET bf(b0+D*CHR* k 

1179 LET b0*b0+2 

1180 IF f 9 > *80 THEN 60 SUB 9600: 
60 TO 1192 

1181 LET j*b0-p(p0-l)-2 

1182 LET b$(p (P0-1))«CHR* (INT ( 

J/2S6)) j 

1184 LET b*(P(P0-1)+1)*CHR0 (INT 
(j-256*INT (j/256))) 

1192 input "Datsi dynanicky obr? 
(a/n> ";k» 

1194 IF k*»"a" THEN 60 SUB 3600. 
GO TO 1150 

2000 INPUT "Nahrani databaza? (a 
/n) ";k$ 

2002 IF if»"*" THEN 60 SUB 6000 
2004 RETURN 


3000 IF 0*0 THEN BEEP 1,20: RETU 
RN 

3001 LET u»p( 0 ): IF u*0 THEN BEE 
P 1,20: RETURN 

3002 LET U 0 -u*2564C0DE b$(u)+COD 
E bf (U + l) *1 

3004 LET U *U +2 

3005 PRINT #0;AT 1,0;" >>> Ktave 

8EEP 0. 


3006 IF INKEY»«" 

+ 1 

3007 IF f6 = 1 THEN 60 SUB 6950 

3010 IF u >U0 AND ool THEN LET 
1 = 1 

3011 IF u>u0 THEN LET f=0: LET 
3=0: RETURN 

3012 LET ksCODE b*(U) 

3013 LET (J =U + 1 


TO 3006 


THEN 

GO 

SUB 

3600: 

GO 

THEN 

60 

SUB 

3610: 

GO 

THEN 

GO 

SUB 

3750 : 

GO 

THEN 

GO 

SUB 

3620: 

GO 

THEN 

GO 

SUB 

3630: 

GO 

THEN 

GO 

SUB 

3660: 

GO 

THEN 

GO 

SUB 

3640 

GO 

0 THEN GO SUB 

3690 

G 

THEN 

GO 

SUB 

3650: 

GO 

THEN 

GO 

SUB 

3660: 

GO 

THEN 

GO 

SUB 

3670: 

GO 


TO 3006 
3018 IF » 
TO 3006 


TO 3006 
3022 IF i 
TO 3006 


TO 3006 
3024 IF » 
TO 3006 


0 TO 3006 
3026 IF k > 
TO 3006 


TO 3006 


TO 3006 

3032 IF kail THEN GO SUB 3710: t» 
0 TO 3006 

3034 IF k=12 THEN GO SUB 3720: 6 
O TO 3006 

3035 IF k *32 THEN GO TO 3006 

3036 IF kal3 THEN LET SOaCODE b* 
(U): LET u=u+l: 60 TO 3006 

3037 CLS 

3038 PRINT "CHY6NY KOD: ",k „ 
3040 PRINT "Obr. ";o;" v b$ od 

3042 *PRINT "pozice V b$ ";u-l 
3044 STOP 


3599 

3600 
U + l) - 
3602 
3604 
3606 
3608 
3610 

) 

3612 
3614 
3616 
3618 
3620 
(U + l) 
3622 
3624 
3630 
3632 
3634 
3636 
3638 
3640 
3642 
3644 
3650 
3652 
3654 
3660 
3662 
3670 
3672 
3680 
(U+l) 

3682 

3634 

3686 

3688 


REM Kresieni 

DRAU CODE b* (U)-X6 .CODE b*( 

VS 

LET XS*CODE b*(U) 

LET ysaCODE b*(U+l) 

LET U*U+2 
RETURN 

PLOT CODE b#(u),CODE b$(u+l 


LET ysaCODE b»(U+l) 

LET u=u+2 
RETURN 

PRINT AT CODE b*(U),CODE b* 

LET u *U +2 
RETURN 

FOR t=u+l TO U+CODE b*(U) 
PRINT b*(l); 

NEXT t 

LET u*U+CODE b*(U)+l 
RETURN 

INK CODE b*(D) 

LET u=u+l 
RETURN 

PAPER CODE b*(U) 

LET u=u+l 

RETURN 

CLS 

RETURN 
BEEP 0.1,30 
RETURN 

DRAU CODE b*(u)-128,CODE b$ 
-12S 

LET xs =XS +CODE b$(u)-126 
LET ys =ys +CODE b*(u+li-128 
LET u=U+2 
RETURN 




3639 REM Segment 

3690 LET u5=0: LET U4»U0. LET u3 

3692 LET 0=CODE b*(U)+80 
3694 GO SUB 3000 

3696 LET 0=U5: LET U0»U4: LET U* 
U3+1 

3696 RETURN 

3700 LET f0»l: LET n0«0: IF f«1 
OR f 1=0 THEN- RETURN 

3701 LET U5*0: LET U3»U : LET U4* 
U 0 

3702 LET f*l 

3703 OUER 1 

3704 GO SUB 3000 

3705 OUER 0 

3706 LET 0*U5: LET U«U3: LET U0* 
U4 

3707 LET f 0=0 

3708 RETURN 

3710 BORDER CODE b*(U> 

3712 LET U*U+1 
3714 RETURN 
37330 OUER 1 

3722 IF »0=0 THEN LET f0=I: LET 
n0=CODE b$(u) 

3724 if n 0 =© Then let r©« 0 : ouer 

0: LET Obu+1: RETURN 

3725 LET n0=n0-l 

3726 LET U*P(0) 

3727 GO SUB 3000 

3729 LET U0=p(o)+CODE b*(p(0)) 

3730 LET U*U+1 
3732 RETURN 
3750 LET n*»“" 

3752 FOR i=1 TO CODE b*(U) 

3754 LET n*=n«+b«(u+i) 

3756 NEXT i 

3758 PRINT RT rl,»l;n* 

3760 LET u =U +CODE b*(U)+l 
3762 RETURN 

3800 LET f1=1: LET f2*l: LET f3« 
0: LET j=l 

3801 IF f9>=80 THEN CLS : LET 0» 
1: GO SUB 3000: GO TO 3804 

3802 LET O=P0-1: LET U«p(0)+3 

3803 GO SUB 3700 

3804 LET f1=0: LET f2>0 
3806 RETURN 


3999 REM Dekodovani 

4000 LET k *CODE b*(U) 

4002 IF k*0 THEN LET k*»"Dyn.naz 
ev": LET k *CODE b*(U + l)+l: RETUR 
N 

4004 IF k=l THEN LET k$B"BOd“: L 
ET k =2: RETURN 

4006 IF k=2 THEN LET K*«"USeCka” 
: LET k =2: RETURN 

4008 IF k =3 THEN LET k* = "KUfZOr" 
: LET k s&: RETURN 
4010 IF ).=4 THEN LET fc$ = "Text": 
LET k=CODE b$(U+l)+1: RETURN 
4012 IF k =5 THEN LET k*«’InkOUSt 
": LET k«l: RETURN 
4014 IF k=6 THEN LET k**"Papif“: 
LET k =1: RETURN 

4016 IF k *7 THEN LET k* = “Uy*aZ": 
LET k=0: RETURN 

4018 IF k =8 THEN LET k*B"ZVUk.»i 

gnat": LET k>0: RETURN . 

4019 IF k =32 THEN LET k|*"NiC”: 
LET k =0: RETURN 

4020 IF kail THEN LET k*»"0kf4j 
: LET k a1: RETURN 

4022 IF kai2 THEN LET k8«"Bt*kan 

i": LET kml; RETURN 

4024 IF k=13 THEN LET k#« Spravn 

a OdPOVed": LET k*l: RETURN 

4026 IF k=9 THEN LET k$B"Ret.«se 

Cka": LET ka2: RETURN 

4026 IF k a 10 THEN LET k*= Se9*e0 

t": LET k a1: RETURN 

4028 LET k$="Chyba !" 

4029 LET K =0 

4030 RETURN 


5999 
5000 
5002 
eni : ' 

6003 

6004 
6008 
6008 
6011 
6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 
6021 
6022 
6023 
6025 
6030 
6032 
6034 
) 

6036 

6037 
6036 
6050 
6052 

6054 

6055 

6056 


6099 

6100 
6102 
e n i : ' 

6103 

6104 
6106 
6106 

6109 

6110 
6112 
6114 
) 

6116 

6118 

6120 

6122 

6124 

6150 

6151 
P (P0- 

6152 
6154 
6156 
6158 
6160 
6162 
6164 
6166 
6168 
6170 
6172 

6174 

6175 

6176 


REH utozeni databaza 
CLS 

print "uoite pametove zariz 
PRINT _ 

PRINT " B-kazetovy 
PRINT " H-microdfive" 

INPUT k»: CLS 
LET X (1)ap0 —1 
LET X (2) an 
LET X (3) ■» 

LET X (4) »r 
LET X (5) a* 

LET X(6)«r0 
LET X(7)a»0 
LET X (8) at 
LET X (9) ad 
LET X (10) BW 
LET X (ID a<* 

LET X (12) »r 1 
LET X(13)aSi 

input "Nazev databaza«";j* 
IF k**"k" THEN GO TO 5050 
SAUE *"■"; 1; j* + "l" DRTR p() 
SRUE *"#•;1;j*+"2" DRTR b»( 

SAUE *••*»”; 1; j* + "3“ DATA x() 
LET k $a"" 

RETURN 

SAUE 4| + "1" DATA PO 
SAUE j* + "2" DATA bSO 
SAUE j*+"3" DATA x() 

LET k*=”" 

RETURN 


REH Nahrani databaze 
CLS 

print "Uoite pametove zariz 
PRINT 

PRINT " B-kazetovy rngf" 
PRINT " B-»icrod rive" 

INPUT k*: CLS 

INPUT "Nazev databazes";j* 
IF k $ *"k" THEM GO TO 6120 
LOAD *"*"; 1; j* + " 1" DATA p() 
LOAD *"#";1;j*+"2" DATA b$ ( 

LOAD 1;j*+"3" DATA xi) 

GO TO 6150 

LOAD j* + "l" DATA pi) 

LOAD jf+"2" DATA b*(> 

LOAD j* + ”3" DATA X() 

LET P0ax(1)+1 

LET b0=p (p0-D +256*C0DE b* ( 
1) )+CODE b$ (P (P0-1)+1)+2 
LET n =x(2) 

LET max(3) 

LET r =X(4) 

LET S=X(5) 

LET r0aX16) 

LET S0 =x (7) 

LET tax(8) 

LET d =X(9) 

LET wax(10) 

LET dax(11) 

LET rlax(12) 

LET Siax(13) 

LET k $a”" 

RETURN 


6199 

6200 
6202 
en i : - 

6203 

6204 
6206 
6208 
6210 
6212 

6213 

6214 
() 


REH ovareni databaza 
CLS 

PRINT "Uoite pametove zariz 
PRINT 

PRINT " B-kazetovy agf" 
print " B-aicrodrive" 

INPUT k$: CLS 
input "Nazev databazea"; 

IF k*a"s" then GO TO ‘ 

LET k $s”" 

UERIFY *"■";1;j$+"l" DRTR p 
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6216 VERIFY *"B“;1;j*+"2" DflTR b 

Isis VERIFY 1; J*+“3" DflTR X 

() 

6219 RETURN 

6220 PRINT 'Hledaw. j*+‘‘l" 

6222 VERIFY j$+"l"DATAp< 

6224 PRINT "HtedaW: 

6226 VERIFY j$+"2"0ATA b$() 

6226 PRINT "Hledaa: ";j*+"3" 

6230 VERIFY j* + "3"DATA x() 

6231 LET k$="" 

6232 RETURN 


6499 REM MfxZka 

6500 PRINT AT 0,0, 

6520 FOR i*0 TO 10 

6522 PRINT PAPER 5; INK 0; OVER 

l; " 

: rem Dvouradfcova sachovnice 
5 bright 

6530 NEXT i 

6531 BORDER 5 

6532 RETURN 


6599 REM Napoveda 

6600 PAPER 1: INK 7: BORDER 1: C 

LS 

6602 PRINT "Seznaa prikazu edito 

ru : ■' 

6604 PRINT _ 

6606 PRINT " HHB-cuch ty graf 
i cky kurzor" _____ 

6608 PRINT “ a@|^HS-presny text 

ovy a gra- ficky kurzo 

6609 PRINT " B-Kodnotove zadarii 

t r.kurzory _ 

610 PRINT 1 8-vyneseni body pod 
kyrzorea" _____ 

6612 PRINT " BBEBB-SPOJ kyrzory 
s po&l.bodea" 

6614 PRINT '• H-nastavenx barvy o 
kraje" _ 

6616 PRINT “ B-nastaveni barvy p 
apiru” 

6618 PRINT •* 8-nastaveni barvy i 
nkoystu" _ . _ . 

6620 PRINT " 1-vyaaz obr. a nast 

0" textowy rezia <Z P 

662 ?^^INT '• H-zvukovy signal" 
6626 PRINT " H-btikani dosud vyt 

6627 n pRINT bf ' B-votani segaento o 

eeli^PRlNT " B-Poaocna arizka iz 

6630 ®print ;; BBHBa- 2ruseni posie 

663l°PRINT C " fl-napoveda i*toto ae 

6632 PRINT " ■-<retativni spoj p 

6633 e ?RINT y ".B- (pSeUd0b0d Pf ° ft 

6634 V print'’" H-*O nec prace V ed» 


|-zruseni posie 


B-treiativni spoj P 
B-tpseodobod pro re 


6637 CLS „ ___ 

6638 GO SUB 93S 
6640 RETURN 


6699 rem Dop men i 

6700 CCS 

6701 PRINT "ZPUSOb doplneni:". P 

RINT _ 

6702 print ’* H-dynaa obr na kone 

bto^print " H-staticky Obr se s 
aazania vsech dynaaxckych 

6705 INPUT k$: CLS 

6706 LET 0=1. GO SUB 3000 

6707 IF k*="d" THEN GO TO 6710 
6709 LET P0=2: LET b0=P 12) : GO S 
UB 1057: GO TO 6713 

6712 GO SUB 1150 

6713 LET k* = "" 

6714 RETURN 


ERSE l;p0-2;b0;" izbyv 
4000-60;")" v 

7026 LET f 8=0 

7031 INPUT "Volte rezia: ";l 

7032 CLS . BEEP 0.1,30 

7034 IF k*="S" THEN GO SUB < 
7036 IF k*="l" THEN GO SUB ( 
7038 IF k$="V" THEN GO SUB « 

7040 IF k*="tt" THEN GO SUB i 

7042 IF k*="P" THEN GO SUB < 

7044 IF k$ = "n'‘ THEN GO SUB : 

GO SUB 1025 

7046 IF fc$="d" THEN GO SUB < 
7050 IF k*="k" THEN STOP 
7052 GO TO 7001 


3499 REM Monitor 

3500 BORDER 1: PAPER 1. INK 7. C 
LS 

8502 PRINT "Monitor-vyberte rezi 


8503 PRINT 

8504 PRINT 1 
o vektoru p 1 
3506 PRINT 1 
e b$" 

3508 PRINT ’ 
e b*“ 

8510 PRINT ■ 


B-vypis pristupoveh 
B-ciseiny vypis baz 
B-vypis operaci baz 
B-zaena obsahu b%" 
U-trasovani kresby 


8511 PRINT U-trasovani kresby 

3514 PRINT " B-fconec prace s aon 
itorea" 

8515 INPUT k«: BEEP 0.1,30 

8516 IF k*="C" THEN GO SUB 9000 

3517 IF k*="0" THEN GO SUB 8700 

8518 IF fc*="p" THEN GO SUB 8600 

3520 IF k*='Z" THEN GO SUB 8750 

8521 IF k*="t" THEN GO SUB 8900 

3523 IF fc$="k" THEN LET k*="": R 
ETURN 

3524 PRINT #0;AT 1,0;"Stisknete 

klavesu! " PAUSE 0 

8525 GO TO 8500 


8599 REM Pristup vektor 
3600 CLS 

8601 FOR i=1 TO 100 

8602 PRINT i ,P ii) 

8604 NEXT i 

3606 RETURN 


3699 REM Vypis operaci 

8700 INPUT "Cisio Obr.iu segaent 
y +80)=-;o: CLS . IF o<l OR o>10 
0 THEN BEEP 1,20: RETURN 

8701 IF p(o)=0 THEN BEEP 1,20: R 
ETURN 

8702 LET j =256*CQDE b»(p(O))+CO0 
E b* IP >0)+1)+2 

8703 PRINT "uypis operaci obr. 

;o;" (deika=“;j;")" 

37 04 PR INT #0;AT 1,0;">>> Kiaves 

a prerysyje <<<" 

3705 FOR i=p(o)+2 TO P<o)+j-l 
8706 LET 0=i 

8708 GO SUB 8726 
8710 LET i=0 

8720 IF INKEY♦*" " THEN LET i =32 
000 

8722 NEXT i 
3724 RETURN 


8725 REM Vypis ope race 

8726 GO SUB 4000 _ ..... 

3727 IF f 8*0 THEN PRINT u; k 

1^2^ IF f8=1 THEN PRINT 80;AT 1, 

8731 IF fQ=1 AN0'k>3 THEN PRINT 

80; CODE b*(U+l>;" GOTO 6 

8732 IF k=0 THEN GO TO 8738 
8734 IF T f8=0 + THEN PRINT CODE b*( 

87^5 IF f 8 = 1 THEN PRINT 80;CODE 
b*iu);" 

3736 LET k=k-l 

8737 GO TO 8732 _„ 

3738 IF f8=0 THEN PRINT 
8739 IF f3=l THEN PRINT BB, 

3740 RETURN 


3749 REM Zaena b« 

3750 INPUT "Od bunky=";j 

3754 CLS _ _ _ 

8756 PRINT "SKB-beze zaeny,n-k 

onec zaen" 

3758 PRINT .j CODE b* C j ) , 

3759 IF j > 4000 OR j=0 THEN BEEP 
1,20: RETURN 

3760 INPUT j* 

8762 IF j*=k" THEN RETURN 

3764 IF j*="" THEN PRINT : LET J 

= J +1: GO TO 8758 

8766 LET i=VAL j* _ _ 

3768 IF i>255 THEN BEEP 1,20. GU 
TO 8760 

3770 LET b*lj)=CHR$ i 
8772 LET j=j + l 

3773 PRINT i 

3774 GO TO 6758 


8799 REM ProhliZeni 
3800 CLS 

8802 INPUT "Staticky obr. ia/nj 
880 ! LET f 6 =0 

8804 IF k*="n" THEN GO TO 8310 
3805 LET f 6=1 
8806 LET 0=1 
8808 GO SUB 3000 

3810 INPUT "Cisio obr. (0-ykoncu 

3811 IF 0=0 THEN LET k*="": RETU 
RN 

3812 LET S 0 =0: GO SUB 3000 

881 4 BEE P 0.1,30: PRINT #0,AT 1, 
0; "SH03-Pokraco je , sprav.odp.= 

: so phUSE 0 

8615 IF f6=0 THEN CLS : GO TO 86 

3816 LET f1=1: LET f2*l: LET f3 = 
0: LET j = l: LET U=p(0)+3 

3817 GO SUB 3700 

8818 LET f 1=0: LET f2=0 
3820 GO TO 3610 


8899 REM Trasovam 

8900 CLS 

8902 INPUT "Cisto obr ‘u segaent 
u 488 )=";0: IF 0 <1 UR O>100 THEN 
BEEP 1,20. RETURN , ^ 

3903 IF p (o)=0 THEN BEEP 1,20: R 
ETURN 

8904 LET f8=1 , 

8906 PRINT 80; AT 0,0,"— 


3910 LET f 8=0 
3912 RETURN 

3950 IF INKEY$ < >"k" AND INKEY*<> 
"t" AND INKEY $ < >" " THEN GO TO 8 
950 

8951 BEEP 0.01,40 

3952 IF INKEY* = "t" THEN LET Z=U: 

GO SUB 8726: LET U=Z 
3954 RETURN 


8999 REM Cis vypis b* 

9000 CL5 

9002 PRINT "Uypis databaze b$(>: 

9004 INPUT "Od bunky=";j 
9006 FOR a=l TO 3 
9008 FOR i=1 TO 21 

9009>IF j+ ia-li *21 + 1 -1>4000 THEN 
LET i=2S: LET a=5. GO TO 9012 
9010 PRINT AT i , ta-li *10, j+ia-i) 
*21 + 1 -1; " - > ’, CODE b*U+ia-l) *21 + 

i -1) 

9012 NEXT 1 
9014 NEXT a 
9016 RETURN 


9499 REM T.vorba segaentu 

9500 LET P0 =p0 — 1 

9502 INPUT "Cisio segaerit'.*= , 1 : 
PRINT AT r1,S1+1,i 

9503 LET r'y = 60 + i 

9504 LET p i30 + i)=b0-2 
9510 RETURN 

9600 LET j =b0-pif9) -2 . 

9602 LET b* (P t f y) J =LHR$ <■ INT ( j / 
256 * ) 

9604 LET p*(p i f9»+1) =CHR* (j-256 
*INT lj/256.') 

9606 RETURN 


6999 REM HI. 

7000 BEEP 0. 

7001 BORDER 
LS 

7002 PRINT " 
TOR * * " 

7003 PRINT ; 

7004~PRINT ' 
k 1986” 

7005 PRINT 

7006 PRINT ' 

) " 

7007 PRINT 
7006 PRINT 

7009 PRINT • 

7010 PRINT • 
7012 PRINT • 
7014 PRINT ■ 
7016 PRINT 1 


aenu 

1,30: GO SUB 1000 
1: PRPER 1: INK 7: C 

* * TESTEDI 




c Martin Stepane 


tverze 1.0 


-toad databaze" 
-save databaze" 
-veri(y databaze" 
-nova databaze" 
-doptneni databaze 


7018 PRINT " 9-prohtizeni databa 

7020 PRINT " B-aonitor" 

7022 PRINT " B-konec prograay" 
7024 PRINT AT 20,0,“BaZe: "; INU 
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Jordana Jovkova 3359 
Praha 4-Modfany 


Graficky rozhodovaci system (GROS) je uCinny prostfedek pro pofttatovou 
podporu rozhodoWini pi*! vyb&ru nejlepSf varianty nebo pro stanoveni poFadi 
vyhodnosti variant. Variantou zde mOie byt napFiklad zpusob Feienf probtemu, 
druh ngjakaho zaFfzeni apod. GROS je urden laick&mu uiivateli, takie nevy2adu 
je 26dna znalosti z vypodetni techniky. Komunikace mezi programem GROS 
a uiivateiem je jednoductte a rtezoma, protoie je vytvofena pomoci grafickych 
prostFedkQ. 


5p*c>. run mmmb 
ipec'.ain* 

>P i C * *.*fft US*mb 

5 1 ri c *. a i r OLmm 
P '. € lie 

HPPU He tmmmmm, 

Htan 130>.e» 
fl'. jf! 260ST^ - *. 
HtJM S208T**— 
H*. a r 1 80OXl_» 

CBM 16 a 

CBM 64. ■ ■ - ■ 

CBM 128 aai 

CBM PU'J 4 a 

CPC 464. a 

CPC 664 

CPC 6126 - ■ - 

5HPPP MZTOea 
Sony Hi 1.61 l* 


Puvodni verze programu GROS je 
napsana v jednoducha verzi jazyka 
BASIC a je poditano s moinosti pfeno- 
su programu mezi ruznymi poditabi. 
N&roky na cilovy poCftai jsou pFitom 
minimaini: asi 16 kB operaCni pamati 
a prace v re£ln6m Case. NejvhodnSjSi 
tffdou pro realizaci programu GROS 
jsou domaci a osobni mikropoCitaCe. 
PFedktedana verze programu je urdena 
pro pofiftaCe ZX-Spectrum. 


Zpusob FeSeni problemu 


System' umo2fiuje zadat nazvy jed- 
notlivych variant, mezi kterymi se bu- 
—deme rozhodovat. Podobn§ muieme 
zadat nazvy vSech faktoru, kter6 majf 
vliv na vyb§r varianty. K jednotlivym 
faktorum stanovime jejich vahy vy- 
znamnosti. Pota pro kazdou variantu 
uvedeme miru zastoupeni (vlivu) jed¬ 
notlivych zvolenych faktoru. Vysledna 
ohodnoceni zkoumanych variant je 
dano vlivem jednotlivych faktoru (podle 
vah vyznamnosti) zastoupenych ve va- 
riantach. PFesnSji Fefieno, ohodnoceni 
je rovrio sum§ souCinu zastoupeni 
faktoru a jejich vah: 


ohodnoceni = vaha * zastoupeni 

, faktor faktor 

faktor 


PFfklad pouiitf syst6mu 


Pro snadn§j§i pochopeni problemati- 
ky nyni uvadim dva pFiklady ruznaho 
pouiiti programu GROS. 

PFedstavme si, 2e jsme postaveni 
pFed problem vyb§ru vhodn6ho typu 
osobnich poCitaCu pro svuj podnik. 
Nakolik typu mime pFedb6zn§ vybrano 
(=varianty)^ ale potrebujeme se roz- 
hodnout jen pro jeden z nich. V prvni 
FadS si tedy zvolime nazvy, ktera budou 
jednotliva typy reprezentovat (jsou-li 
puvodni nazvy kratka, pouiijeme je, 
jinak uiivame itesti n£zvu nebo zkrat- 
ky). Dale se zamyslime nad tfm, ktera 
vlastnosti po5ita60 budou ovlivfiovat 
na§e rozhodnuti (=ovlivfiujicf faktory). 
Tyto vlastnosti kr&tce a vysti2n§ pojme- 
nujeme (napF. spolehlivost, servis, ce- 
na, rychlost, dosaiitelnost atd.). Nyni si 



stanovime, jak mnoho n6m na jednotli¬ 
vych faktorech zaieii. Mfru duleiitosti 
kaiddho faktoru (=v6hu) si v programu 
GROS muieme znazorriit graficky dai- 
kou pasu vedle jm6na faktoru. Cim je 
pas delSi, tim je faktor duleiitajSi (tj. ma 
v6t§i vliv na rozhodov^ni). Mira duleii- 
tosti je tai zobrazovana v procentech. 
V posledni fAzi se pro kaidy faktor (tj. 
vlastnost po£fta£e) vypi§i vSechny va¬ 
rianty (tedy nazvy typQ poCitaCu) a my 
uvadime zastoupeni pFislu§ndho fakto¬ 
ru (vlastnosti) u kaid6 varianty (typu 
poCftaCe). Jsme-li napFiklad po2ad6ni, 
abchom vyjadFili zastoupeni vlastnosti 
„spolehlivost“, zobrazime vedle nazvu 
kaiddho typu poCitaCe tim del§i pruh, 
6im v$t§i je jeho spolehlivost. Postupu- 
jeme tak, 2e u nejspolehliv6j§iho typu 
zobrazime plnou d£lku pruhu a d6lky 
ostatnich pruhu bereme relativnfe k ni. 
Ma-li tedy napFiklad druhy typ poCitafie 
tFikrat men§i spolehlivost nei nejlep§f, 
bude mit tFikrat kratSi pruh. V tato fazi, 
podobna jako pFi urCovani dule2itosti 
faktoru, jista ocenime grafickou formu 
zobrazeni, kdy jsou na prvni pohled 
zFejma relace mezi zadavanymi daty. 
Po zadani zastoupeni vlastnosti u v§ech 
typu poCitaCu mu2eme spustit vyhod- 
noceni, jehoi v^sledkem je stanoveni 
poFadi miry vyhodnosti jednotlivych 
variant. 

V uveden6m pFikladu si uiivatel 
vytvaPel celou databazi faktu sam. Je 
v§ak moiny i opadny pFistup, pfl kte- 
r6m je databaze vytvoFena odbornikem 
pFislu§n6ho oboru a uiivatel ji jenom 


vyu2tva. Jako pFiklad tohoto pFistupu 
slouii tak6 demonstrafini database to¬ 
hoto programu. Databaze obsahuje 
vlastnosti ruznych druhu domacich 
poditaCu a slou2i uiivateli k vybaru 
poiitate na zAklada jim udanaho za¬ 
stoupeni v tas t no s tt. Databaze byfa vy- 
tvoFena stejnym zpusobem jako data¬ 
baze pFedchazejiciho pFikladu. Nazvy 
poCftaCu jsou chapany jako nazvy va¬ 
riant, nazvy vlastnosti jako nazvy 
ovlivftujicich faktoru. Zastoupeni fakto¬ 
ru ve variantach (tj. vlastnosti u po- 
iitaCu) je v bazi zadano. Databaze ma 
ovSem prazdna pole vyjadFujici dulezi- 
tost faktor0 — vahy. Chybajici vahy 
doplni pravS uiivatel podle svych poia- 
davku. Jinymi slovy, uiivatel doplni jak 
moc mu na jednotlivych vlastnostech 
zaieii. Po dopInSni vah m02e zadat 
o vyhodnoceni, jehoi vysledkem je 
op§t iebFiiek vyhodnosti variant. Zde 
doporufcuji dukladn6 prostudovani 
obrazova prilohy. 

Na uvedenych prikiadech byly 
ukazany dva ruzna zpusoby pouiivani 
programu GROS. CH obou zpOsobu je 
totoiny, totiz ziskani pfehledu 
o vzajemna vyhodnosti variant, ale 
zatimeo prvni moinost pFedpokiada 
tvorbu ceia databaze uiivatelem, 
v druham pFipada se ji2 jedna jen 
o modifikaci pFipravena databaze. 














Obsluha programu Gros 


Po spuStSni programu se zobrazi 
hlavni menu, kter6 nabizi deset 
moinosti volby stiskem nSkter6 z uve- 
denych Ciselnych kteves. Pfi stisku 
kl&vesy „l“ se napFiklad dostaneme do 
n&pov§dy, kde je zkr£cen§ uvedeno 
zhruba tot6z co v t6to kapitole. 


Na poC&tku pr4ce s programem 
GROS mime v podstatS dv6 moinosti: 
bucf budeme vytv^Fet novou datab&zi 
variant nebo uiijeme nSkterou drive 
vytvofenou datab£zi, kterou budeme 
modifikovat podle aktu£lnich potfeb. 
Nahrajeme ji z vn6j§i pamSti (napr. 
magnetofon, disketov£ jednotka apod.) 


PFi tvorbfi nov6 datable vstoupime 
nejprve do rezimu zad£v6ni n&zvu 
a vah faktoru. Po stladeni kl&vesy „2“ 
se z hlavniho menu dostaneme pr&v§ 
do tohoto reiimu a uvidime blikajici 
kurzor. Kurzorem muzeme pohybovat 
pomoci kurzorovych kl&ves vSemi 6tyr- 
mi sm6ry. Stisk kl£vesy odpovidajici 
pismenu, dislici nebo n§kter6 jin6 
znaCce (kromS d4le zminSn^ch) vyvote 
zdpis odpovidajiciho znaku do pozice 
kurzoru. Timto zpusobem muieme za- 
psat n4zvy vSech faktoru. Kdyi chceme 
zadat k faktorum jejich v6hy, stiskneme 
kiavesu a dostaneme se do grafic- 
k6ho reiimu. Mira v&hy je d&na d6lkou 
p&su, kterou Ize mSnit pomoci kurzoro¬ 
vych kl4ves pro pohyb vlevo a vpravo. 
Procento odpovidajici d6lce je zobra- 
zov&no t6i diselnS ve spodni CAsti 
obrazovky. Mezi jednotlivymi faktory 
pFech£zime uiitim kurzorovych kl&ves 
pro pohyb nahoru a dolu. Z^pis vah 
ukon£ujeme stiskem ktevesy odesl&ni 
(..ENTER nebo jf odpovidajici kldvesa 
podle typu pofcitafie). Ocit&me se zp6t 
v reiimu zaddvdni n^izvu. Pokud ho 
chceme opustit a vr£tit se do hlavniho 
menu, stladime kl&vesu ObyCejnS 
zde postupujeme tak, ie nejprve zapi- 
seme ndzvy v§ech faktoru (n&zev 1, 
..ENTER", n4zev 2, ..ENTER",...), 
a pak jim pFiFazujeme v&hy. Pokud se 
dopustime n§jak6 chyby, staCf kurzo¬ 
rem dojet do prisluSend pozice a chybu 
prepsat (vynech&ni je pFeps&ni meze- 
rou). 


Do reiimu ndzvu variant vstoupime 
z hlavniho menu stiskem kl£vesy „3“. 
V tomto rezimu se kurzor op§t ovl£d& 
kurzorovymi kl&vesami. Znakov6 kl&ve- 
sy zapisuji odpovidajici znaky. Kl£ve- 
sou ..ENTER" muzeme pFechazet na 
zaC&tek n£sledujiciho radku. KI£vesou 
ukondujeme zad«tv£ni. Kaidy n4zev 
varianty zapisujeme na samostatny 
F£dek. 

Poslednim zad&vacim reiimem je 
popis zastoupeni faktoru v jednotlivych 
variant6ch. Z hlavniho menu se do 
zmihovan^ho rezimu dostaneme kl£ve- 
sou „4“. V Iev6 66sti obrazovky se n£m 
vypi§i n£zvy vSech variant, v dolni z6n§ 
se objevi n&zev faktoru a na n£s je 
pFiFadit zastoupeni tohoto faktoru ke 
v$em variantcim. Pouiijeme kurzorov^ 
klAvesy podobnS jako pFi zad&vani vah. 
Stiskem ktevesy ,.ENTER" pFejdeme 


k n&sledujicimu faktoru. Zad^vani 
ukonfcujeme kl^vesou PFi vyzna6o- 
v£ni zastoupeni variants, kterS m& toto 
zastoupeni nejvStSi, pFiFadime vidy 
plnou dSIku p£su (100%) a ostatni 
zastoupeni posuzujeme relativnS k ni 
(tj. kolikrSt je men§i)!H 


Do kterShokoli z uvedenych reiimu 
se muieme pozdSji vrStit, abychom 
opravili chyby nebo provedli modifikaci 
udaju, kterS se napFikiad Casern mo- 
hou mSnit (zlevnSni apod). ZmSny 
provSdime stejnymi prostFedky jako 
zaddvdni. NSzvy prostS pFepisujeme, 
hodnoty vyj^dFend ddlkou p^su 
mSnime pomoci kurzorovych kliives. 
Udaje se pFijmou vidy v t6 podobfi, 
v jak6 se nachdzeji v okamiiku opu§tS- 
ni reiimu. 


Pomoci klctves „5“ a „6“ se z hlav¬ 
niho menu dostdv^me do reiimu, kter6 
umoiftuji z&znam nebo Cteni datable 
na vndjSim pamSfovCm m6diu. Po 


c«n« 

UZitHOva p 
SvtttMove p 
Mry 

noztah RAM 
Gr* i ika 
Barevnost 
Kiavcsnic« 
Interface 
Oycn tos t 


*•••»»*••**»*•t***••******•«•»** 

OEMONSTRRCNI ORTRBAZE POCITRCU 

u tonto rezmu uzivate'. zada ja 
i»v zatezi na jednotlivych ovede- 
nych fantorech* zastoupeni fat- 
toru u pocitacu je udelano POdle 
casopisu "Moj aitro", cervenec 
1966 (Juyos lavie) 


N&zvy faktoru 


nahr^ni datab^ze do poCitaCe muieme 
jeji data modifikovat vy§e uvedenymi 
metodami. 


Reiim „7“ umoihuje poFidit vypis 
datable metodou kopirov&ni stinitka, 
na kterC se postupnfe vypisuji informa- 
ce z datable. 


Kl^vesou „8“ v hlavnim menu vyvo- 
liv^me proces vyhodnoceni aktu^lni 
datable. Po vyhodnoceni jsme do- 
t^z^ini, zda si pFejeme zobrazeni vy- 
sledku Ciselne nebo graficky. Vyhodno¬ 
ceni n&m poskytne informaci o ohod- 
noceni jednotlivych variant a to tak, ie 
nejvySSi ohodnoceni je br^ino jako 
100% a ostatni jsou k nCmu pFepo- 
Citev^na. Abychom neztratili informaci 
o absolutnf vyhodnosti, je pod menu 
vybSru zpusobu zobrazeni vysledku 
informace o maxim^lni moin6 hodnotfi 
ohodnoceni a o hodnoceni nejlep§i 
varianty. * 



Vybavenf uiitkovymi programy 


Spe c t rum 



Spectrum* 



Spectruml2s 



Sinclair QL 


Sinclair 

Apple lie 



Apple lie 



Atari 130XE 


Atari 13CXE« 

Atari 266ST 



Atari 520ST* 



Alan 800XL 


Atari 600XL* 

CBM 16 


CBM 16 a 

CBM. 64 



CBM 126 



CBM Plus 4 


CBM Plus 4 B 

CPC 464 


CPC 464 a 

CPC 664 



CPC 6128 



SHARP MZ700 


SHARP MZ7O0» 

Sony HitBit 


Sony Hi tBi t mm 


N&zvy variant 


Vybavenf syst&movymi programy 


Spectrum ■* 
Spectrum* mm 
Spec *.rum 12 Sh 
S inclair OLm 
A pple IIC mmm 
Apple lie mam 
Atari ISCXEmm 
A tari 266 STmhi 
A tari saesTaM 


Atari 6O0XL 
CBM 16 
CBM 64. 

CBM 126 
CBM PIUS 4. 
CPC 4.64. 

CPC 664 
CPC 6128. 
SHARP MZ-700, 
Sony Hi tBi ti 



Spectrum ■ 
Spectrum* ■ 
Spe ct rum126» 
Sinclair 0L» 
Apple lie ■ 
Apple He ■ 
Atari ISOX.Ea 
Atari 266ST* 
Atari S26ST* 
Atari 8i30XL« 
CBM 16 ■ 
CBM 64 ■ 
CBM 123 ■ 
CBM Plus 4 a 
CPC 464 a 
CPC 664 ■ 
CPC 6128 ■ 
SHAPP MZi70O« 
Sony Hit6it« 
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Dostupnost her 







Spectrum a * 
Spectrum* m 
SpectruMlSSaa 
oinciair OLn 
Apple lie M 
Apple lie a 
Atari 130XE* 
Atari 26dST M 
Atari 5S0 oT m 
A tari Sddxta 
CBM 16 a 

CBM 64. a 

CBM 128 a 

CBM Plus 4 . m 
CPC 464- a 

CPC 664 _ 

CPC 6123 a 

SHARP MZ?O0a 
Sony HitBita 


Spectrum , 
spectrum* , 
Spec trum 126* 
Sinclair ql* 
Apple lie . 
Apple lie a 
Atari 130XE* 
Atari .260ST, 
Atari 520ST a 
Atari S00XLa 
CBM 16 a 
CBM 64 ■ 
CBM 128 a 
CBM Plus 4 a 
CPC 464 • 
CPC 664 . 
CPC 6126 a 
SHARP MZ73Ca 
Sony HitBit a 


Spectrum 
Spec t rum + 
Spe c trum 123 
Sinclair ol 
A pple lie 
Apple lie 
Atari 130X.E 
Atari 260ST 
Atari S20ST 
Atari 80CXL 
CBM 16 
CBM 64 
CBM 123 
CBM Plus 4 
CPC 464 
CPC 664 
CPC 6123 
SHARP MZ700 
Bonn HitBit 


Velikost operadni pam&ti 


Kvalita kl&vesnice 


tnterfejs v podftadi 


Spe ctrum 
Spectrum* 

Spe c t rum 123a 
Sinclair ql 
Apple lie 
Apple lie 
Atari 130XE 
Atari 260ST 
Atari 52®ST 
Atari 8O0XL 
CBM 16 
CBM 64 
CBM 128 
CBM PIUS 4 
CPC 464 
CPC 664 
CPC 6128 
SHARP MZ700 
Sony Hi t.Bi ta 


Spectrum a* 
Spectrum* a 
Spectrum 123a 
Sinclair QLa 
Apple He a 
Apple lie M 
Atari 130XEaaa 
Atari 260ST** 
Atari 5205Taa 
Atari BQQXLaaa 
CBM 16 M 

CBM 64 aaa 

CBM 128 aai 

CBM PIUS 4 aa 
CPC 464 w 

CPC 634 aaai 

CPC ;6128 aa 

SHARfP MZ70O 
Sony HitBitaa 


Spectrum m 
Spectram+ m 
Spe c trum 126* 
Sinclair QLa 
Apple lie a 
Apple lie a 
Atari 130XEa 
Atari 2S0ST* 
Atari 520ST. 
Atari S00XLa 
CBM 16 a 
CBM 64 a 
CBM 126 a 
CBM PtUS 4 a 
CPC 464 a 
CPC 664 a 
CPC 6123 ■ 
SHARP MZ700, 
Sony MitBita 


Jemnost grafiky 


(Jiitf barev a moinost vyb&ru 


Rychlost procesoru 



.’r?\ 


' - ’ X - 'W ’ '. > ■ 

, 5 <\ ; • • . 

• • - . . I - ! .«> •_ A 


1 GO to 9000 REM Studeny sta 

2 GO ro 9090 REM HorKy start 


1000 REM POLL SCR: EDITOR 

1001 LET x=i 

1002 _ET r =0 

1003 LET £ = 0 , 

1014 IF k=2 AND (2=1 THEN GO SUB 
6000 

1015 IF 1*3 AND f 3*1 THEN GO SUB 
•3100 

1017 GO Sue 7050 

1013 IF 1=2 THEN PRINT 00 , AT 0,0 
IN uERSE 1; "NAZ'JV F AK.T 0RU 1 

1019 IF 1=3 THEN PRINT »0 . AT 0,0 
; INVERSE 1, 'NAZVY GAP: I ANT 

1020 IF k=2 AND x=2 THEN PRINT tt 

0.AT 0.0, INVERSE 1,"VAHv FAKTOR 
U: ",AT 0,9 1," 

van a*"; int i@. i+ is -gl'« - 90 * 100 ) 

1021 IF k=4 TFlEN PRINT H0, AT 0,0 
, INVERSE 1, "FAKTOR. 





AT 0 , 91 , "zas 

loupe 

n i = " 

INT 

1 

-91) ■■4 0*100) i 


1025 

GO 

5U6 

5000 


+030 

IF 

C »f i 

9+. 1 THEN GO SUB 

7000 

: GO 

SUB 

655 

0 GO SUB 7050. 

GO T 

0 14: 

'-Q 




104 0 

IF 

r u: t 2 

t t THEN GO SUB 

6500 

go sue 

7050 

GU TO +499 


1050 

IF 

•; *. j o 

«M' i MEN GO SUB 

7000 : 

•J 0 « 

:»J6 

6000 

GO SUB 7050. 

GO T 0 

1499 





106© if c*up then go sub 7000 : g 

0 SUB 6053: GO SUB 7050; GO TO 1 
4.yy 

lo ro if x = l and c < ;end and c <. >en 
ter AND C\.'9i‘9pFi THEN GO SUB 610 
0 : G U l O 14 2 9 

1060 IF x = 1 AND k=2 AND c=graph 
THEN LET x =2. GO SUB 7000. LET s 
= v i. f »i i +9 1 GO sU6 7000 GO SUB 
7050 

1090 if a = l AMD c = ena then go SU 
6 15-00 RETURN 

1100 IF x =2 AND C =er< ter HNO k;>4 
TFiEN GO SUB 6200: LET X = 1 PR IN 
T H0,AT 0,0, INVERSE 1,"NAZUV FA 
r-.ToRU GO sU 

e 7000. LET £=o: GO SUB 7000: GO 
506 7050 

1110 IF x=2 and c*enter AND k =4 

THEN GO SUB 6200' GO SUB 3500 

1115 IF x =2 AND C=end THEN GO SU 

5 5200 LET f =i*0 + I 

1120 IF I', rO THEN GO SUB 1500. R 

ETuRN 

1130 IF .: = + and chanter Then Go 
SUB .000. GO Sub 6000 LET s =0 . 
GO SUB 7000 GO SUB 7056 
1492 GO TO 1020 


I50e rem Navrat 
1505 LET f=l 

1510,IF k =2 THEN LET +2=1 
+520 Ii- k =3 THEN LET i3 = l 
1530 RETURN 


2030 REM EDITOR ZA5T0UPENI FAKTO 
RU 

2005 LET i=0 
2310 i_£T x =2 
2025 Gu SiJB 6500 
2030 GO 3U6 1014 
2040 ReTURN 
5000 REM K.LAVE5A 

5020 IF INKEY#*"" THEN GO TO c -02 
0 

5030 LET C+CODE INKEY* 

504 0 BEEP 0,02,20 
S05O RETURN 


6000 REM Raaet. dolu 

5005 IF =2 THEN GO SUB 6200 

5010 LET r=r+i 

6020 IF r > r 0 -1 THEN LET r = r 0 -1 
5030 IF x =2 AND K. 04 THEN LET S = 
v i r + 1 ) +9 1 

6035 IF X =2 AND k=4 THEN LET £ =z 
1 r + 1 , t > +91 
6040 RETURN 


605 0 REM Radek naF>oru 

6055 IF x =2 THEN GO SUB 6200 

6060 LET rsr -1 

6070 IF r<0 THEN LET r =0 

6075 IF x =2 AND k<>4 THEN LET s = 
vlr+1) +q 1 

6076 IF x =2 AND k=4 THEN LET S=Z 
i r + i,n +91 

6030 RETURN 


6100 rem zapis znaku 

6110 IF k =2 THEN LET f*tr*1,s+1) 

6120 IF k =3 THEN LET n*(r+l,s+H 
=LHR$ c 

6125 PRINT AT r,s,CHR* c 
6130 GO SUB 6550 
5135 GO SUB 7050 
6140 RETURN 


6200 REM OdeCteni vahy 

6210 IF k =2 TFlEN LET v(r+l)*S-9l 

6215 IF k =4 THEN LET Z>r+l.r')=S- 

91 

6220 RETURN 


6500 rem sloupec vievo 

6504 GO SUB 7000 

6505 IF S=i0-1 AND X=2 THEN PRIN 
T AT r,S, " LET k # = " LET f« 
(r+l,s+li=" " 

6510 LET s=s-l 

6520 IF £<0 THEN LET S=0 

6530 IF x =2 THEN PRINT AT r,si" 

6535 IF x *2 AND k<>4 THEN LET f% 
(r +1,s +1> *" " 

6540 RETURN 


6550 REM sloupec vpravo 
5555 IF x=£ flND s 050-1 THEN PRI 
RT i j S j m" 

6556 IF x=2 AND k<>4 AND SOS0-1 
THEN LET r * i r+1 , s + 1J ='W 
6560 LET S=S+1 

8828 THEN LET *»*-»■ 


700C rem vymaz kurzor 
7010 PRINT AT r .5 ; k* 

7020 RETURN 

7050 -REM zobr-az kurzor 
7055 PRINT AT r,*;"*" 

7060 IF k =2 THEM LET k*sf$(r+l ,5 
+1) : RETURN 

7062 IF k =3 THEN LET k*=n*ir+i,s 
+1): RETURN 

7065 LET k #*" ": RETURN 


7100 REM VYrtODNOCENI 

7105 CL5 

7106 PRINT FLASH 1;"Uyhodnoceni 
- pros mi cekejte !!!" 

7110 FOR 1=1 TO |-0 

7120 LET h i i) =0 

7130 FOR j=l TO r0 

7140 LET h i i) *h (i ) *V (.i) *Z I i , j ) 

7150 NEXT j 

7160 PRINT RT 3,0;"varianta "; i 
" vyhodnocena" 

7165 BEEP 0.1,10 

7170 NEXT i 

7175 LET ,.i*0 

7180 FOR i*1 TO r0 

7185 IF h ( i ) > j THEN LET j *F. i i ) 

7190 NEXT i 

7200 CL5 

7205 LET q*j/90 

7206 CLS 
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720? print Zpusob reprezentace 
vystedku" 

7208 PRINT " 0-Navrat do ht.»em.' 

7209 PRINT ■' l-graficky" 

7210 PRINT " 2-ciseme" 

7211 GO SUB 5000 

7212 IF CaCODE "0" THEN LET c=CO 
DE "l": RETURN 

7213 IF CaCODE "2" THEN GO SUB 7 
300: GO TO 7206 

7214 IF CaCODE "l" THEN GO SUB 7 
215; GO TO 7206 


7215 REh Grafxcke vyhodnoceni 

7216 CLS 

7217 GO SUB 8100 
7220 FOR i=1 TO r0 
7230 FOR jeg 1 TO 50 

724.0 IF t j-9l> tq>h (i ) OR h< i ) =0 
THEN LET j=S0+l: GO TO 7250 
7245 PRINT RT i~l,j;'W 
7250 NEXT j 
7260 NEXT i 

7265 PRINT 80;RT 1,0; INUERSE 1, 
" UYHODNOCENI UYHODNOSTI URRIRNT 


7266 PRINT 80,RT 0,0; INUERSE 1; 
" GROS »£) Martin STEPRNEK 1986 


7270 BEEP 0.3,10 
7275 GO SUB 5000 
7260 RETURN 


7300 REM Ciselne vyhodnoceni 
7310 CLS 


7320 GO SUB 8100 

7330 FOR iel TO r0 

7340 IF h(ii<>0 THEN PRINT RT i- 

1,91 + 1, INT (h i i ) /q/g0tl00) ; ” 5i" 

7350 NEXT i . 

7365 PRINT 80,RT 1,0; INUERSE 1, 
" UYHODNOCENI UYHODNOSTI URRIRNT 


7366 PRINT 80,RT 0,0, INUERSE 1; 
"GROS © Martin STEPRNEK 1986 

7367 GO SUB 5080 
7370 RETURN 


8000 REM UYPIS NAZUU FRKTORU R 
RH 

8010 FOR i=1 TO r0 
8020 REM FOR j*l TO 50 
8025 REM PRIN+ f*(i,j); 

8030 PRINT flti); 

3040 REM NEXT j 
8050 PRINT 
3060 NEXT i 
8065 BEEP 0.3,10 
—8070 RETURN 


8100 REM UYPSRNI NRZUU URRIRNT 
8110 FOR i=1 TO r0 
8120 REM FOR j«l TO 50 
8125 REM PRINT n*li,j); 

8130 PRINT n*(i); 

3140 REM NEXT j 
3150 PRINT 
8160 NEXT i 

3165 IF l 04 AND k<>7 AND k<>8 T 
HEN BEEP 0.3,10 
8170 RETURN 


3500 REM Prechod na daisi faktor 

3510 LET fsf+1 

8520 IF f>f0 THEN RETURN 

3530 CLS 

3540 GO SUB 8100 

8550 LET S*Z <1, f)+91 

3560 LET r *0 

3530 GO SUB 7050 

8586 REM FOR i*1 TO 50 

3586 REM PRINT 81;AT 0,i-l;f*<f, 

8590 PRINT 80;RT 1,0; INK 7; PRP 
ER 3,f$(f) 

8595 REM NEXT i 

3600 FOR iel TO r0 

8651 FOR q=gl TO S0 

3652 IF q-gl>»z(i,f) THEN LET qa 

50+1: GO TO 8654 

8653 PRINT RT i-l,q; W 

3654 NEXT q 

8656 NEXT x 

365? BEEP 0.3,10 

3660 RETURN 


9000 REM INICIALIZACE 

9002 REM Uicepismenovt pro»enne 
nahradte cisty die uziteho pocit 
ace 

9003 LET graphaCODE "a": LET ent 
er =13-. LET endeCODE 

9004 LET up=11; let down=10: LET 
left=8: LET right=9 


9006 LET f2=0 

9007 LET f3=0 

9008 LET f=0 

9009 LET K $ = " " 

9010 REM Max radky editoru 

9020 LET r0=22 

9021 REM Levy okraj grafiky 

9022 LET gl=ll 

9030 REM Max sioupcu editoru 


9040 LET 50=32 
9045 LET 90=50-91-1 
9050 DIM f*(r0,S0) 

9060 DIM V(r0) 

9070 DIM n$tr0,s0) 

9080 DIM z Ir0,r0) 

9035 DIM hirC) 

9090 REM TELO PROGRAMU 

9091 BORDER 0: INK 7. PRPER 

9092 ‘BEEP 


1: C 







9096 PRINT 
K 1986" 

9097 PRINT 

9098 PRINT 

) “ 

9099 PRINT 

9100 PRINT 
MENU *t 

9105 PRINT 

9106 PRINT 
rogramu" 
9110 PRINT 
ktoru a vah 
9120 PRINT 
riant" 

9130 PRINT 
ktoru ve 
9140 PRINT 
9150 PRINT 
9160 PRINT 
9170 PRINT 
aze" 

9180 PRINT 
abaze” 

9190 PRINT 


Martin STEPANE 


(verze 1.1 


"tti 

a" 

" l 

;; a 

•• 3 

4 

s 

•• 6 
" 7 

" 8 


M L A U N I 

-Navod pouzivani p 

-Zadani/editace fa 

-Zadani/editace va 

-Zadani/editace fa 
variantach" 
-uiozeni databaze" 
-Nacteni databaze" 
-Tisk databaze" 
-Uyhodnoceni datab 

i-Zatozeni nove dat 

>-Ukonceni programu 


9195 PRINT 

9196 PRINT PAPER 2;" 
variant a faktoruI) 


(Max ";r0; " 


919? REM Ramecek die scr pocitac 
e 

9198 PLOT 6,105. DRRU 242,0: DRA 
U 0,-92: DRAW -242,0: DRAU 0,92 
9200 GO SUB 5000 
9210 CLS 

9212 LET k =C-CODE "0" 

9216 IF c =CODE "l" THEN GO SUB 9 
900 

9220 IF CaCODE "2“ THEN Gp SUB 1 
000 


9230-IF 

AAA 

CaCODE 

"3" THEN 

GO 

sue 

1 

9240 

000 

IF 

C =CODE 

"4" THEN 

GO 

sue 

2 

9250 

300 

IF 

C aCODE 

"5" THEN 

GO 

SUB 

9 

9260 

850 

IF 

CaCODE 

"6" THEN 

GO 

SUB 

9 

9270 

700 

IF 

CaCODE 

"7" THEN 

GO 

SUB 

9 

9230 

100 

9290 

IF 

C aCODE 

8“ THEN 

GO 

SUB 

7 

IF 

C =CODE 

"9" THEN 

GO 

TO 

1 

9300 

9310 

IF 

GO 

C aCODE 
TO 3090 

"O' THEN 

STOP 



9t>0(3 REM uyber pa*oetoveho zarize 
ru 

961© CLS 

9620 PRINT "Pouzite pa»etove zar 
i zeni : " 

9630 print " i-Kazetovy magnetof 
on" 

9640 PRINT " 2-ZX Microdrive" 
9650 GO SUB 5000 
9660 RETURN 


9700 REM TISK 
9710 GO SUB 8000 

9720 COPY 

9721 BEEP 0.1,30: 
T : LPRINT 

9722 IF INKEY*="" 

9725 CLS 

9730 GO SUB 810© 

9740 COPY 

9741 BEEP 0.1,30: 
T : LPRINT 

9742 IF INKEY*="" 
2 

9750 LET f=0 
9755 IF f* it+1,1) 
=i+l. GO TO 9780 
9760 GO SUB 3500 
9770 COPY 


LPRINT : LPRIN 
THEN GO TO 972 

LPRINT : LPRIN 
THEN GO TO p?4 

=" " THEN LET f 

LPRINT : LPRIN 


9771 BEEP 0.1,30: 

T . LPRINT 

9772 IF INKEY * = "" THEN GO TO 977 
2 

9780 IF f<r0-l THEN GO TO 9755 
9790 RETURN 


9800 REM SAUE 

9810 CLS 

9811 print "Nazev databaze?" 

9812 INPUT if 

9813 IF LEN if>7 THEN PRINT "Oov 
oleno max 7 zneku!": GO TO 9820 

9815 GO SUB 9800 

9816 IF c=CODE "1" THEN GO SUB ? 
320 

9817 IF CaCODE "2" THEN GO SUB 9 
834 

9818 RETURN 


9826 SAUE i$+"2" DATA vi) 

9827 SAUE i*+"3" DATA n*(j 

9828 SAUE i$+"4" DATA Zii 

9829 RETURN 

9834 REH Save na microdrive 

9835 SAUE 1;i* + "l" DATA f$< 

9836 SAUE am"; 1; x $+"£" DATA VO 
983? SAUE +"»";1;i* + "3" DATA n*( 

9333 SAUE a »",1;i*+"4" DATA z<) 
984© RETURN 


rtun L.UHL' 


9851 CLS 
3352 PRINT "Nazev databaze?" 

9853 IF LEN x*>7 THEN PRINT "Dov 
oleno teax 7 znakui": GO To 9870 

9854 GO SUB 9600 

|||S CaCODE "1" THEN GO SUB 9 
C=CODE “2“ THEN GO SUB 9 

870 

9858 RETURN 


9860 rem Load z mgf 

9864 LOAD i*+"l" DATA f*<) 

9865 LOAD i»+"2" DATA Vi) 

9866 LOAD i*+"3" DATA n*U 

«>ATA ZO 

9868 RETURN 


z crodri ve 

9874 LOAD a"* ;1;i* +"1" DATA f*< 

9875 LOAD 1; it + ''2'‘ DATA vo 

9876 LOAD t"te";l,'iIM" DATA 


9877 LOAD a'te";1;i* + "4' 
9890 RETURN 


DATA Z O 


9900 REM HELP PRO ZX SPECTRUM 

9901 LET t $ a"STISKNETE LIBOUOLNO 
U KLAUESU !!!" 

9902 CLS 

9904 PRINT " GROS SlOUZi pro TOZ 
hodovani me-zi vice moznymi vari 
antami rese-ni nebo pro stanoven 
x poradi a airy vyhodnosti jcdn 
otiivych va-riant." 

9905 PRINT 

9906 PRINT " gros umoznuje pro k 
azdy ovli- vnujici faktor zvoti 
t vyznamovouvahu a pro kazdou va 
riantu urcitzastoupeni jednottiv 
ych faktoru.Uysledne ohodnoceni 
kazde uvede-ne varianty je dano 
souctem sou-cinu jtdnotiivych va 
h s prislus-ny» zastoupenim fakt 
oru." 

9907 PRINT 

9908 PRINT " ohodnoceniaSUMAlva 
haazastoup.)“ 

9909 PRINT 

9910 PRINT " Popis oviadani v ne 
kterych re- zimech je na datsich 

strankach. U ostatnich pripadec 
h se ridime podle nabidkovych mc 
nu." 

9911 PRINT 80; INUERSE lit* 

9912 GO SUB 5800 

9913 CLS 

9914 PRINT "ZADANI NAZUU FAKTORU 
A UhH : " 

9915 PRINT 

9916 PRINT " a)Kurzor:5,6,7,8 ne 
bo kurzorove kiavesy" 

9918 PRINT " biPrechod na daisi 
radek ENTER nebo kurzorete" 
9920 PRINT " OReZim V»h: *" 

9922 print " d)Zpet rezim nazvu: 
ENTER- 

9924 print " e»Ukonceni.." 

9925 PRINT 

9926 PRINT "Pozn.Nazvy faktoru 
musi byt od prvniho stoupce, jin 
ak se nevy- tisknou! Max deika n 
azvu je zde" 

9927 PRINT gi;" znaku." 

9926 PRINT #0, INUERSE l;t$ 

9930 GO SUB 5000 

9932 CLS 

9934 PRINT "ZADANI NAZUU UAH;" 

9935 PRINT 

9936 PRINT " a 1Ku f ZOr.5,6,7,8 ne 
bo kurzorove kiavesy" 

9937 PRINT b)Prechod na daisi / 
radek:ENTER" 

9936 PRINT " c>Ukoncenx . . " 

993.9 PRINT 

9940 print Pozn.Max deika nazvu 
" , gl, " zn . " 

9942 PRINT 80, INUERSE l;t* 

9944 GO SUB 5000 
9946 CLS 

9948 PRINT "ZADANI FAKTORU UE UA 
RIANTACM:" 

9949 PRINT 

9950 PRINT " a)Kurzor:5,6,7,8 ne 
bo kurzorove kiavesy" 

9952 PRINT " b)Prechod k dal. fa 
ktoru:ENTER” 

9954 PRINT " C)Ukonceni:." 

9956 PRINT 80; INUERSE lit* 

9958 GO SUB 5000 
9960 CLS 
9962 PRINT 

9964 PRINT FLASH 1;"UUEDENY NRUO 
O PLATI BEZ UYUIMEK UEN PRO POCI 
TAC ZX SPECTRUM !!! " 

9966 PRINT 

9968 PRINT "Tento navod je pouze 
or ientacni ,proto je vhodne si p 
recist prx- rucku uzivateie." 
9970 PRINT 80, INUERSE lit*- 
9972 GO SUB 5000 
9974 RETURN 


9820 REM Save na mgf 
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Jan Jelinek 

KaplickA 852 
14000 Praha 4 


Vyukovy program MtSTA slouil 
k procviAovAnl (pflpadnA testovAni) 
znalosti poiohy mAst nad 10 000 obyva- 
tet v CSSR. 

Je rozdAlen do dvou AAsti: 

1. Vstupnl test: hrAA mA za ukol urAit 
nAzev poAftaAem oznaAenAho mAsta 
na slepA mapA CSSR. V tAto AAsti se 
vyskytujl pouze mAsta nad 50 000 
obyvatel a nent bodovAna. UrCI-li 
hr AC sprAvnA alespoft tri mAsta 
z pAti, postupuje do druhA, hlavnl 
AAsti. 

2. Hlavnl AAst: v tAto AAsti jsou postup- 
nA probfrAny jednotlivA kraje. Clko- 
lem hrAAe je urAit zamAfovaAem 
polohu mAsta, jehoi nAzev zadA 
poAitaA (10 000 ai 50 000 obyvatel). 
V kaidAm kraji jsou mAsta zadAvAna 
tak dlouho, dokud souAet odchylek 
urAenych poloh od skuteAnosti ne- 
pfesAhne 100 km (maximAlnA vSak 
5krAt). O kolik se muie hrAA jeAtA 
zmylit je zobrazeno jako dovolenA 
chyba a pokud nenf pfekroAena, 
pfipoAltA se za kaidA mAsto 100 
bodu. Nevyuzije-li hrAA bAhem 
5 pokusu dovolenA chyby, je mu za 

_ kaidy zbyly kilometr pfipoAftAn bod. 



V jednom kraji Ize ziskat maximAlnA 
600 bodu. Pro vAtAI obtlinost zadAvA 
nAkdy poAitaA i mAsta z jinAho kraje 
nei zkouAenAho. Po probrAnl vSech 
10 kraju vyhodnoti poAitaA vysiedek. 

Zobrazeni mAst: v 1. AAstiv 2. AAsti 

nad 1000 000 O O 

100 000—1000 000 O O 

50 000— 100 000 + o 

25 000— 50 000 + 

10 000— 25 000 

(stav k 1. 4. 1982) 

Obslutia programu 

Program nahrajeme pflkazem 

CHAIN (sklAdA se ze tfi zAznamu). Po 
vykresleni obrysu republiky zaAne bli- 
kat u nAkterAho mAsta Aipka. NaplAeme 
nAzev tohoto mAsta (bez hAAku 
a AArek). PoAitaA kontroluje pouze 
prvnich Aest plsmen a na chybu reagu- 
je jii pfi prvnlm nesprAvnAm pismenu. 

V druhA AAsti ovIAdAme zamAfovaA 
(blikajlcl kfliek) pomocl Aipek. Po 
umlstAnf zamAfovaAe na iAdanA misto 
stiskneme tlaAltko „1“. Myslfme si, ie 
zadanA mAsto nen( v pfIsluAnAm kraji, 
stiskneme tlaAftko ,.1“. Mysllme-li si, ie 
mAfovaAe nezAleil). NesprAvnA urAeni 
kraje se hodnotl jako chyba 50 km. 
Nebyla-li odpovAcT pfesnA, oznaAi bli- 
kajlcf Aipka sprAvnA misto. 

Popis nSkterych podprogramu 

INIT — zinicializuje pole 
Q(10,2) — soufadnice map krajO 
NS(10) — nAzvy krajO 
T$(6) — texty vyhodnoceni 
— naAte z mgf pole 



X(203) — x soufadnice mAst 
Y(203) — y soufadnice mAst 
0(203) — poAty obyvatel ve mAstech 
H(444) — zakddovanA hranice CSSR 
K(338) — zakAdovanA hranice kraju 
M$(203) — nAzvy mAst 

— naAte z mgf tvary miniznaku (64 na 
fAdek) 

(tisk miniznaku pomocl GOSUB 0M1) 
START — vynuluje pole Z(203) 

— pfiznaky, zda mAsto bylo jii jednou 
vybrAno 

KRESLI — spustl hranl hudby (GOSUB 
$M3) 

— nakresll obrysy kraje nebo republiky 
(GOSUB &M2) 

— nakresll pffsIuAnA mAsta 

— nakresll rAmeAek s nApisy 

— poAkA, ai dohraje hudba 
DIST — vyhodnoti odpovAcT hrAAe: 

— zmylil-li se v kraji, pak Dl=50, 

— jinak Dl = vzdAlenost zamAfovaAe od 
mAsta v km, 

— je-li Dl<4, pak Dl=0. 

KEY 

— je-li stisknuto tlaAltko se Aipkou, 
pohybuje zamAfovaAem v jejlm smAru, 

— stiskne-li se „1“, vrAtl se na STRIL. 

— stiskne-li se „2“, vrAtl se na MIM. 

NAkterA promAnnA: 

KR — Alslo kraje (0=CSSR), 

DC — dovolenA chyba (v 1. AAsti poAet 
omylQ, v 2. AAsti poAet kilome- 
tru), 

BO — poAet bodu, 

PO — Alslo pokusu, 

Dl — vzdAlenost zamAfovaAe od mAs¬ 
ta, 

DV — pflznak, ie bylo stisknuto tlaAlt¬ 
ko „2". 



620 ( MtM ) 

6301 


DV-1 


640 Q STRIL ) 



2201 labtlkej fipkou 
I u sprAvneho 
mesta 

T 
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Vypis programu „M6sta“ 



f'f.yP'*. rw o^* ahu * c d*ta o mOstech, tj. nk6dov«n6 hranice kraj& a rapubKky, aoufadnlce a nizvy mist a poity obyvatel. Tftehto dat by byto asi 8 str. A4. 
Vypm ja urten pro pochopeni probtenutiky a ukizku programovacf techmky. Program byt sestavcn pro potttae SORDM5 a BASIC-G a pamAtf EM-32). 


10 rem (c) jan Jelinek ml. 1936 

100 gosub /init 

11C gosub /start 

120 console 1•kr-0 

130 gosub /kresli 

140 dc-2 

150 for po-1 to 5 

160 locate 22,2sml/«num/(po):gosub /ml 

170 locate 26,3:ml/-num/(dc)+* krat'sgosub /ml 

180 m-rnd(3l):me»-1 

190 repeat 

200 me-me+1 

210 If o(me)i»500 then m-m-1 
220 until rocO 

230 if z{me)then goto 130 else z(me)»1 

240 loc 1 to(x fine )-m2x )/2+2, (y (me )-ir.2y )/2+2 

250 on event gosub /sip 

260 event 25:event on 

270 repeatsuntil inkey/-” 

280 m- len (m/ fme )) sn«0s if n£>6 then m-6 
290 n-ntl 

300 r-ascii(inkey/):if r--1 then goto 3C0 else p«r and 31 
310 c-ascll(mid/(m/(me ) ,n) )and 31 

320 if p-c or p-5 and c-6 or p»21 and c«22 then goto 380 

330 event offsscol 1,0s play ’rge-cge-c’:locate 19,5sml/-left/(m/ 

(me ) ,n-1 )-n;hr/(r Jsgosub /mt 

340 locate 1S,6:ml/-'spatnf - spravnf bylo:'sgosub /■nl 

350 locate 18,7sm1/»m/(me):gosub /ml 

360 dc-dc-1 

370 gotp 420 

390 if n»m then n«18 

39C locate 13,5sra1/-left/(m/(me),n):gosub /ir,1 
4C0 if non then goto 290 

"~5l0 event offsscol 1,C:play ’cegcegc2’:locate 19,6:m1/«*spravnf, 
uhodl jste/’sgosub /ml 
420 for n-1 to iCCCCsnext 
430 locate l8,5sml/«rpt/(26,• •):gosub /ml 
440 locate 18,6:gosub /ml:locate 18,7:gosub /ml 
450 if dc>»0 then next po else goto /konec 
460 loc 0 to 129,96 
470 consoLe Osfor kr-1 to 10 
480 gosub /kresli 
490 dc-100 

500 zro-q(kr-1,0):repeatszm-zm+1suntil o(zm)c500 
510 km-q(kr,C)-1 
520 for po-1 to 5 

530 locate 22,2sm1/-num/(po)sgosub /ml 

540 locate 26,3:m1/«num/(dc)+’ km ’sgosub /ml 

550 me«rnd(kro-zm)+zm 

56C if z(me }then if mi then goto 550 else me-me+1C0+200*(me:>100) 

tmi»1 else z(me)-1:mi-C 

570 locate 19,5:m1/«m/(me)sgosub /ml 

580 dv«0:on event gosub /kriz 

590 on key gosub /key 

600 event 25:event on:key on 

610 goto 610 

620/mim 

630 dv-1 

640/stril 

650 gosub /dist 

660 dc«dc-di:if dc>*C then bo-bo+100 

670 if di then m1/«»spletl jste se o , +num/(di)+ , km* else ml/-* 
tresny zasah/’ 

680 locate 1S,6:gosub /ml 

690 locate 27,2sml/-num/(bo)sgosub /ml 

700 loc 1 to sx+1,sy+1 

710 on event gosub /sip 

720 if dl then event on else play *cjegcegc2’ 

730 for n-i to I0000:next 
740 event offsscol 0,0:scol 1,0 


750 locate 18,5:m1/-rpt/(26,’ Msgosub /ml 

760 Locate l8,6:gosub /ml 

770 if do-0 then next po:bo-bo+dc 

780 next kr 

790/konec 

800 fcol 7;locate 0,11:gmode 0 

810 for n»0 to 5 

820 print/l rpt/(26,* •) 

830 next n 

840 box 0,88,207,135:locate 1,12 

850 ml/-’dosahl Jste ’+num/(bo)+’ bodv z 6000 moznych*:gosub /ml 

860 print ’«&’t:m1/-*dnesni rekord: ’+num/(re)+’ bodv*sgosub /ml 

870 print •»£’;sml/-t/(bo/1000)sgosub /ml 

880 print *»£ , ;:m1/« , chcete hrat znovut (a/n)’sgosub /ml 

890 if bo^re then re-bo 

900 If inkey{0)-0 then goto 900 

910 if inkey(0)-25 then goto 110 else print sstchr:console 1: 
end 

920/d.ist 

930 gmove/Osdi-O 

940 if mi then sx-152:sy-64 else sx-x(me)-m2xssy-y(me)-m2y 
950 if dv then mi-mi+1 
960 if mi-i then di-50 
970 if mi then return 

980 d2-dist(sxx3/2,sy,pos(2)ti3/2,pos(3))sif d2—1 then di-200:re 
turn 

990 repeat:di-di+1suntil di’25d2 
1000 if dic4 then di-0 
1010 return 
1020/sip 

1030 scol 1 ,sprite(1,3)xor 7 
1040 play ’g8‘ 

1050 return 
1060/kriz 

1070 sc»l'o,sprite(0,3)xor 7 

1080 play ’c32* ' 

1090 return 
1100/key 

1110 if inkey(0)then goto, 1150 '* 

1120 move 0 on/0 
1130 event on 
1140 return 

1150 event offsscol 0,7 

1160 if inkey(0)-9 then key offsreturn /stril 
1170 if inkey(oV-10 then key offsreturn /mim 
1180 if inkey(0)-55 then move 0 step 1,0,2 
1190 if lnkey(0)»54 then move 0 s.tep-1,0,2 
1200 if inkey(0)»46 then move 0 step 0,1,2 
1210 if inkey(0)-51 then move 0 step 0,-1,2 
1220 return 
1230/kresli 

1240 ginitsgmode 4:gosub /m3 

1250 scod 0,139:scol C,0:scod I,l40:scol 1,0 

1260 m2m-l-(kr-0):m2x«q(kr,1):m2y-q(kr,2) 

1270 m2-varptr(h(0)):fcol 6:gosub /m2 

1290 if kr then goto 1350 

1290 fcol 1,1 

1300 for n-0 to 203 

1310 if o(n)<500 then goto 1330 

1320 gmove(x (n )-m2x)/2,(y(n)-m2y)/2:circle 1-(o(n)51000)- (o(n)>1 

oooc) 

1330 next n 
1340 goto 1400 

1350 m2-varptr(k(0)):fcol 12:gosub /m2 
1360 fcol 11 

1370 for n-q(kr-1,0)to q(kr,0)-1 

1330 gmove x(n)-m2x,y(n)-m2y:eircle-(o(n)>250)~(o(n)i500)-(o(n)S 
1000)-(o(n)M0000) 

1390 next n 

1400 gmode Osfor n-0 to S:prlnt/l cursor(17,n)rpt/(15,’ ’):next 
1410 fcol 5:box 136,0,255,72 

1420 locate l8,2rm1/-»pokus: body: *+num/(bo)sgosub /ml 

1430 locate 13,3:ml/“’dovolena chyba:’sgosub /ml 
1440 if kr then goto 1480 
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1450 locate 13,1smlZ-'ceskoslovensko’:gosub /ml 
1460 locate 18,4:ml/«•Jake je to mfstot*:gosub /ml 
1470 goto 1510 

1480 locate 18,1:ml/-'kraj: , 4mim/(kr)+* - *+n/(kr hgosub /ml 
1490 locate 18,4:ml/-’hledejte mfsto: (potam 'iM'jgosub /ml 
15CC locate IS.Tsml^-**2* - neni v tomto kraji’:gosub /ml 
1510 fool 9 

1520 if play(0)then goto 1520 

1530 return 

1540/init 

1556 randomize:re-0 

1560 print ' uslvsl ’t:ten 18 

1570 dim q{10,2),n/(10),z(203) 

1580 for n«0 to 10:for »«0 to 2 
1590 read q{n,m ) 

1600 next m,n 

1610 for n-1 to 10:read n/(n):next 
1620 old ’datarepub’ 

1630 dim m/{2C3),x{203),y(203),o(203),h(444) ,k(338) 

1640 pokew /7264,4080,varptr {«/(0)),0:call /0e7d 
1650 pokew /7264,408,varptr(x(0)),408C:call /0e7d 
1660 pokew /7264,408,varptr(y(0)),4488:call /0e7d 
1670 pokew /7264,4C8,varptr(o{0)),4e96:call /0e7d 
1680 pokew /7264,890,varptr(h(0)),5304:call /0e7d 
1690 pokew /7264,678,varptr(k(0)),6194:caLL /0e7d 
1700 ten 50:dim t/{6):ml/->» 

1710 for n»o to 6:read t/(n):next 
1720 print ♦ vrv ’ 

1730 otd ’mSIminlzn’ 

1740 stchr *fOcOa09008040201• to 140 
1750 return 
1760/start 
1770 bo-0 

1780 for n-0 to 203iz{n)-C:next n 
1790 print ’ji’; 

1800 return 

1810 data 0,8,-33,19,53,10,28,59,98,41,0,54,63,37,0 

1920 data 83,138,14,107,138,96,140,204,34,167,212,182,190,270,13 

0,204,351 ,112 

1830 data stredocesky,jihocesky,zapadocesky.severocesky.vychodoc 
esky,jihomoravsky,sever omoravsky 

1840 data zapadoslovensky.stredoslovensky.vychodoslov. 

1950 data je to hrvza - nemate ani zakladni prehled/,za vas vyko 
n by se stydfl i slmpanz/ 

1860 data vas vykon Je veLmi slaby - bfzte si odpocinout/.’neni 


to nejhorsi, ale zkuste se zlepsit/* 

1870 data 'mate velrai dobry prehled, Jen tak dal/’,jste az moc c 
hytry (anebo svind lu jete)/ 

1880 data to Je podvod_- s vaml nechci hrat/ 

30COC/ml 

30010 gmode 0:for mi-1 to lenfml/) 

30020 print/1 chr/(ascii(mid/(ml/,m1, 1 ))+128*(ml mod 2))j 
30030 if mi mod 2 then print '.S’srgmode 4 else gmode 0 
3C04C next:gmode 4 
30050 return 
30060/m2 

30070 poke /7120,/fe,0,/2C,2,/7e,/23,/fe,3,/c8,/cd,Ac,/71,/c5,/ 
d5,/c1,/dl,/cd,/4c,/71,/c5,/d5,/d,/dl,/c9-44w(m2m-1) 

30080 poke /7138,/73,/fe,0,/20,/0c,/7a,/fe,0,/20,7,/7b,/fe,/c0,/ 
30,2,/fl,/c9,/f1,/l8,/d4 

30090 poke /7l4c,/f5,/e6,3,/fe,3,/20,1,3,/fe,1,/20,1,/Cb,/f1,/cb 
,/3f,/cb./3f,/c9 

30100 if peekwfm2)—1 then return 

30110 pokew /7262,0,peekw(ra2)-m2x,peekw{m2+2)-m2y,m244 
30120 call /712C 

30130 plot peekw(/7264 )/m2m, peekw(/7266 )/m2m 

3C140 if peekf/7263)»3 then m2-peekw{/7268):goto 30100 else goto 
30120 
3015 0/m 3 

30160 len 32:restore 30290:m3«0 
30170 on event gosub 30200 
30180 event 30:event on 
30190 return 

30200 read m3/:if m3/i-*a’ then goto 30270 
30210 m3»ra3+l ■ 

30220 if val(m3/)then m3n-o3:repeat:read ra3p/:until m3p/«’/ , -Hn3/ 
30230 if m3/-’x' then restore 30290:m3-0:repeat:read m3/:m3-m3+1 
:until m3«m3n 

30240 if m3/«’.' then event off:return 
30250 if left/(m3/,1 )0'/* then goto 30200 
30260 event vaL(mid/(m3/,2)):goto 30200 

30270 m3-m3+3splay m3/:read m3/:pLay,m3/:read m3/:play,,m3/ 

30280 return 

30290 data 05l4s1t2l5,05l4s1,o5L1s1,1,1,2,3,/55,b-agg,d2.o4go5,f 
,4,5,6,7,7,2,b-ag2,c1,e 

30300 data 4,b-ag2,d2.o4go5,f,5,c2c2,rl,r,. 

30310 data /I,b-agr,c2.o4go5,e,w,/2,b-agg,c2.o4go5,e,w 
30320 data /3,b-agr,c1 t e,*,/4,b-agr,d2.o4go5,f,* 

30330 data /5 ,gge-d,fo4gabo5,r,w,/6,cr2.,co4bo5ce,r,* 

30340 data /7,b-ag2,c2.o4go5,e,w 


' ;: J 
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SLOVNIK 


M. Kaftan 


NeratovicM 32 
182 00 Praha 8 


Program Slovnfk slouif v Sesti zAkladnich zpOsobech pouiitf k ukiadAnl, 
uchovcini, automatickemu Fazeni, vyvoianf a pFipadnOmu vyti$t&nl slov 
v kteramkoli cizim jazyce. Jednoducha ukony jsou voleny tak, aby Slovnik 
optimal n£ plnil svflj ufcel jako praktickd a rychia doplftkova jazykovd pomucka. 


Slovnik je ur£en pro pouilvanl na 
osobnlm poCftaCi ZX Spectrum s vhod- 
nou kompatibilnl tiskamou. Zakladnl 
verze programu je pFizpOsobena pro 
tisk prostfednictvlm Interface 1. 

K jeho hlavnlm vyhod£m patFI: 

— moinost vlastnlho zdpisu slov 
s jejich okamiitym samoCinnym 
abecednim zarazenlm, 

— rozsah do 800 pouiitelnych slov, 

— vyvoianf celych stranek v poCtu 18 
vyrazu nebo jednotlivych slov, 

— moinost rychlych vlastnlch tiprav 
(vymazavdml, doplrtovanl, opravy 
textu) podle potFeby 

— aplikace na magnetofonovych pas- 
kach 6i microdrivu a vhodna tiskar- 
nS. 


Vyklad programu 


I. Z&kladnl vyb$r (menu) 

Program Slovnik umoiftuje variabilnl 
vyuiitf tSchto z&kladnfch m6du: 

1. zapis nov^ch vyrazu ..NOV£ SLOVO 

2. ZmSna dvojice vyrazu na jejich 

opaene poFadl.ZMENA VERZE 

3. Vyvoianl zapsanych slov 

na displej.CTENl SLOVNlKU 

4. Nahr^nl do poClta6e/uchov£nl 

Zciznamu .LOAD/SAVE 

5. Pouiitl tiskdrny. VYTISt£n( 

6. ZkouSenf jednotlivych 

slovfCek.ZKOUSENl SLOV 

Dal§l 5Sst je zamferena na podrob- 
n6j§l popis vy§e uvedenychf variant 
funkce. 


Zakladni vyb6r (menu) je vychodis- 
kem kaid§ho jednotliv6ho m6du 
a n^slednych operacl. Objevl se auto- 
maticky na konci kaid6 nahr^vky po 
povelu „L.OAD“. 

1. Zapis novych vyrazu — NOVE SLO¬ 
VO 

Stiskneme-li ze zakladnfho vybdru 
tladltko 1, objevl se nejdFIve vyzva 
k potvrzenl. Zma6kneme-li dale 
A (ANO), objevl se „stranka“ slovnlku, 
pripravena k zapisovanf. ZaCatek zapi- 
su oznaCuje iluty kursor, ktery se pFi 
psanl automaticky posouva. Stranka je 
rozdSlena na dv§ poloviny, z nichi 
kaida ma kapacitu 16 znaku. Podet 
Fadku na kaid6 strance je 18. 

a) zapisovanl, pohyb kursoru 

Pohyb kursoru se oviada pFIsluSnymi 
Sipkami. Prechod z leva poloviny 
,,stranky“ na pravou se provadl tlaCIt- 
kem ENTER. Tlmtai tladltkem se pFe- 
vadl kursor po ukondenl v prava polovi- 
n§ stranky znovu na zadatek jejl leva 
poloviny. 

b) pFepisovanl, vymazavanl 

— „pFeklep“, tj. chybu pFi psanl Ize 
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jednodude opravit tak, te se kursorem 
vr&time zpdt k poslednfmu sprdvndmu 
pfsmenu a odtud zadneme ps£t sprdv- 
ny text, 

— stejny udinek md tladitko DELETE, 
kterd soucasnd vymazdvd, 

— cely rddek Ize vymazat soudasnym 
zfnadknutim SYMBOL SHIFT 

a S (NOT). Viz tdz odst. A/ll 

— pomocnd tladitko EDIT. 


c) znadeni podtu slov a dislovcini 
strdnek 

Pfi zdpisech se dislice objevuji auto- 
maticky na spodnim okraji displeje. 


2. Zm&na verze 

Zmdna verze se voll ze zdkladniho 
vyb&ru tladitkem 2. Vysledkem je 
zdmdna obou polovin na dotydnd stan¬ 
ce. Pokud je napf. siovnfk organ izovdn 
tak, ie vlevo jsou zapisovAny vyrazy 
v cizim jazyce a vpravo jejich deskd 
ekvivalenty, po stisknuti tladitka se 
jejich poloha zamdni. DochAzf rovn§2 
automaticky k prechodu do mddu 3, tj. 
dteni slovnfku. 

3. VyvolAni zapsanych slov na displej 

— CTENi SLOVNfKU 

Stiskneme-li ze z&kladniho vybdru 
tladitko 3, objevi se po nAsledndm 
A (ANO) dosavadni zApisy podinaje 
strAnkou d 1. Daldf strAnky se vyvolajf 
tladitkem EDIT. 

I v mddu d. 3 Ize provAddt dodatednA 
zApisy. Kursor se po celA plode strAnky 
posunuje pomoci tladitek se dipkami. 

4. O per ace LOAD a SAVE 

> Po tladitku 4 a A (ANO) se nejdffve 
objevi vybdr LOAD/SAVE k volbd tladit- 
ky L (LOAD) nebo S (SAVE). 

a) nahr&n! zAznamQ do podltade 

— LOAD 

Stisknuti L dAvA alternativu pouiiti 
magnetofonovA pAsky (tladitko 0) nebo 
jednoho z 8 moinych microdrivu (tladit¬ 
ka 1 az 8). 

b) uchovAnf z&znamu — SAVE 
Postup SAVE je obdobny. Po volbA 

zAznamovA jednotky 0 ai 8 se objevi 
nApovAcT „NAzev“, pod nimi mA byt 
zAznam uchovAn a ktery dopideme. Po 
stisknuti ENTER se nahrAvaji na pAsku 
ulozena slova, po demz se v pripadA 
nahrAvAni na microdrive slova automa¬ 
ticky verifikuji. JestliZe se nahrAvaji na 
pAsku, pak Ize verifikovat stisknutim 
„a“ po objeveni ..Verify". 

5. VytidtAni 

Po stisknuti tladitka 5 nAsleduje nej¬ 
dfive upozornAni, ze program umoiftu- 
je pouiiti tiskArny pouze prostfednic- 
tvim ZX Interface 1. Rozsah tidtAnAho 
textu je od zadAtedniho do koncovAho 
slova. 

6. Zkoudeni slov 

Zkoudeni (tladitko 6) spodivA v udAni 
(vepsAni) presnAho pfekladu k vyra- 
zum, kterA poditad nAhodnA vybirA ze 
slovniku. Postadi k tomu stisknuti kte- 
rAhokoli tladitka po nApovAdi ,,Zkou- 
det?“, po nit se napide prfsludny pfe- 
klad (ekvivalent) k vyrazu, ktery se 
objevi v rubrice „Slovo“. 
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O REM *****»»»**»******«««**« »*»»«»» SLOVNIK *** 

**** * MARTIN KAFTAN 1986 ** ****.****,**«.,,,,,*,,, 

1000 REM Inicia Iizace»********** 

1001 CLEAR 69900: DIM 1$<800,32>: DIM d$<6.15>: POKE 23609,90: LET r = 0: LET poc = 
O: LET n$=" STOP...menu EDIT...instrukce ": LET m$=CHR$ 16*CHR$ 7»CHR$ 17*CHR$ 

l‘CHR$ 19*CHR$ 1: LET U$*CHR$ 16-CHRS 0*CHR$ 17*CHR$ 6 

1002 RESTORE 1026: FOR p= 1 TO 6: BEEP .01.30*p: READ d$lp): NEXT p 

1003 RESTORE 1116: FOR p= 1 TO 28: READ d POKE 65499*p,d: NEXT p: GO TO 1021 

1004 REM Razeui podle abecedy*** 

1009 FOR p=poc-l TO 2 STEP -1: LET Sd-O: FOR c=poc-l TO poc p STEP -1 

1006 IF 1$(C*1>• 1$<C> THEN LET f$-l$<c>: LET l$(c )•l$<c»l>: LET 1$(C♦ 1 > = f$: LET 

sd*sd*l 

1007 NEXT c: LET p=p*<sd 0): NEXT p 

1008 RETURN 

1009 REM Vyhledavani slova***** 

1010. INPUT "Hledane slovo:”; LINE z$: IF z$*”” OR z$=” " THEN BEEP .2.20: GO TO 

1010 

1011 LET dI-LEN z$: LET lo*2: LET po=poc: LET q = 2 

1012 IF I$<po. TO d1 > = Z$ THEN LET q = po: GO TO 1019 

1013 IF l$(lo, TO dl>=Z$ THEN LET q=lo: GO TO 1019 

1014 LET ps=INT (<po*lo>/2> 

1015 IF l$<ps. TO d1> = Z$ THEN LET q = ps: GO TO 1019 

1016 IF l$(ps)Z$ THEN LET lo = ps 

1017 IF l$<ps> z$ THEN LET po=ps 

1018 IF polo 1 THEN GO TO 1014 

1019 LET yo-1 NT <q/20): LET yo=vo*18»l: LET y = q-yo»<q -yo): GO TO 1058 

1020 REM Menu»****************** 

1021 BORDER 1: PAPER 1: INK 7: CLS : PRINT INVERSE HAT 0,11;TAB 20;AT 1 . 11 ; - SL 
OVN1K ";AT 2,11;TAB 20: PRINT AT 5.0;: FOR p=1 TO 6: PRINT TAB 7;pd$<p>: 
PRINT : NEXT p 

1022 BEEP .1.20: PRINT AT 21,0;TAB 5;"Stiskni prislusne cislo";TAB 31: PAUSE NOT 
PI: LET c = PEEK 23560: LET w$-CHR$ c: IF w$*”l” OR w$>"6” THEN BEEP .1,1: GO TO 

1022 

1023 BEEP .1,30: PRINT u$;AT VAL "21”,VAL "0“;TAB VAL ”8";" Potvrd lano) “; FLAS 
H 1;w$; FLASH O;TAB 31: PAUSE O: IF INKEY$< >"a" AND INKEY$ "A” THEN GO TO 1022 

1024 REM Vetveni**************** 

1025 BORDER 7: PAPER 5: INK O: GO TO 1000*27*<w$=”1” OR w$ = "3”»*59»<W$="2“>-61 *( 

w$=”4") *7>)«(w$= "5" > *97* < "6" > 

1026 DATA "Nave s1 ova","Zmena verze","cteni siovniku”,"Load/Save","Vytisteni",”z 
kouseni slov” 

1027 REM Nove slovo a ****»»»»** Cteni siovniku*»***»*»* 

1028 LET Ct = 10 AND w$="l”)*(l AND w$=”3"): LET X = 0: LET ox = x: LET XO = x' 

1029 CLS : IF w$="3" THEN LET yo=1: LET y=l: LET ov=y: GO TO 1058 

1030 LET yo =I NT (poc/181: LET yo = yo»18: IF yo< 1 THEN LET yo=l 

1031 LET y=poc-yo*2: LET oy=y: GO TO 1058 

1032 PRINT AT 0.0;m$;" ";TAB 32’TAB <I NT (33-LEN d$<VAL w$))/2>;d$<VAL wS);TAB 3 
2’;" ";Tab 32 

1033 POKE 23659,0: PRINT PAPER 4;AT 22,0;" Pocet slov:”;poc;" strana c.:";INT 

< VO/ 18) <• 1 ;TAB 32 ■ n$: POKE 23659.2 

1034 REM Pohyb a psani na »*»*** obrazovku* -************ 

1035 BEEP .003,40: PRINT AT oy * 2, o.\ + xo; 1 $< ov *yo , ox *xo * 1 > ; AT y*2,x*xo; PAPER 6;1 
$<v.yo,x*xo*1): LET ov=y: LET ox=x 

1036 PAUSE O: LET c=PEEK 23560: LET a$=CHR$ c: IF c 31 AND c-128 THEN LET l$<y*y 
o,x*no» 1 )=a$: LET x = x♦1 

1037 IF OX 15 AND c>31 AND c 128 THEN GO TO 1035 

1038 IF Ct THEN GO TO 1045 

1039 IF X 15 AND <C 12»CC- 13>< O THEN LET X = X 1: BEEP .1,40: GO TO 1035 

1040 IF C*13 AND 1$(v*yo.XO«1>*" ” THEN BEEP .1,20: GO TO 1036 

1041 IF e*13 THEN POKE 22592*x*xo*32*y,40: LET v=y*<xo=16>: LET poc=poc♦ ( xo=16>: 
LET XO=0*IXO=16>*16*<XO*0>: LET OX-0: LET x*0 

1042 IF C*13 AND XO=0 AND poc.1 THEN GO SUB 1005: GO TO (1056 AND V 18)*<1058 AN 
D v * 18) 

1043 IF c 13 AND xo*0 AND poc 2 THEN GO TO 1033 

1044 IF (C 8)*< C-91*0 THEN LET X = X-<C*8)«(C*9): LET X = X*(X 0>-(X 15>: GO TO 1035 

1045 IF C=12 THEN PRINT AT y*2.x*xo;" ";: LET x=x-l: LET 1$<y*yo,X*xo+°)*" "• IF 
X-0 THEN LET X=0 

1046 IF < c-8 ) * < C-9 ) *0 THEN LET x-x-< c=81 ■* (C-9 ) : LET y=y*(x 31>-(X 0>: LET x*x-32 
*<X 31)*32*<X-0>: GO TO 1056 

1047 IF C*7 THEN GO TO 1091 

1048 IF C *226 THEN LET poc=poc*l: GO SUB 1005: LET poc=poc-l: GO TO 1021 

1049 IF NOT Ct. THEN GO TO 1035 

1050 IF C =197 THEN GO TO 1029 

1051 IF C=204 THEN GO TO 1010 

1052 IF c=195 AND poc O AND <y*vo).*(poc*1) THEN FOR p*<y*yo> TO poc* 1: LET l$<p 
>*l$(p»l>: NEXT p: LET poc=poc-l: GO TO 1058 

1053 IF c =198 THEN LET yo=yo*18: LET y=l: LET x = 0: GO TO 1058 

1054 IF c. = 172 THEN GO TO 1030 

1055 IF <C-10)*(C-11)=0 THEN LEI v=y*<c=1O1-(c=II) 

1056 LET voy*yo: LET vo*yo+18*(y>18)- 18*<y l>: LET y = y-18*<y>18)♦18*<v l> if vo 
1 THEN LET yo*1 

1057 IF yov-yo THEN GO TO 1033 

1058 FOR i-1 TO 18: PRINT AT i*2,O;1$(i*yo): NEXT i: GO TO 1032 

1059 REM Zmena verze*********** * 

1060 CLS : LET poc=poc*l: FOR i*2 TO poc: LET z$=l$<i. TO 16): LET 1$(i, TO 16>= 
l$(i.l/ TO ): LET l$(i,17 TO >=z$: NEXT i: LET x=0: LET v=l: LET yo=l: LET wS*"3 
": GO SUB 1005: LET poc*poc-l: GO TO 1058 

1061 REM LOAD/SAVE************** 

1062 CLS : BEEP .1,30: PRINT m$;AT 9,8;TAB 24;AT 10.8;" LOAD/SAVE!1/s) ";AT 11,8 
;TAB 24: PAUSE O: LET c*PEEK 23560: LET w$*CHR$ c: GO TO 1062*9*(w$*"1")*13*(w$= 
”s" ) 

1063 INPUT "Nazev: "; LINE Z$: IF z$*"" THEN BEEP .2.1: GO TO 1063 

1064 IF LEN z$ 10 THEN LET Z$=(Z$( TO 10)> 

1065 RETURN . 

1066 BEEP .1,35: PRINT u$:AT 9.4;TAB 28;AT 10,4;" Kazet.<O>-M/drive(1 8> ";AT 11 
,4;TAB 28: PAUSE NOT PI: LET C=PEEK 23560: LET W$=CHR$ c: IF w$ "O" OR w$'"8" TH 
EN BEEP .2,1: GO TO 1066 

1067 LET d=VAL w$ 

1068 RETURN 

1069 PRINT ’"Verify <a/n>”: PAUSE O: IF INKEYS="A” OR INKEY$="a" THEN PRINT AT 1 

9,0;” Pretoc kazetu na zacatek. pote PLAY”: VERIFY z$ DATA 1$(> 

1070 GO TO 1021 

1071 GO SUB 1066: IF NOT d THEN GO TO 1073 

1072 PRINT AT 0.0: CAT 1: GO SUB 1063: LOAD *"m";d;z$ DATA 1$(>: GO TO 1074 
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1073 GO SUB 1063: LOAD Z$ DATA 1$< > 

1074 LET poc =VAL 1*11 >: GO TO 1021 

1075 LET 1$<1>. STR$ poc 

1076 GO SUB 1066: IF NOT d THEN GO TO 1078 

1077 PRINT AT 0.0: CAT 1: GO SUB 1063: SAVE *"m";d;z$ DATA l$<>: PRINT AT 12.4;" 
Verify...": VERIFY *"m";d;z$ DATA 1$<>: GO TO 1021 

1078 GO SUB 1063: SAVE zS DATA l$< ): GO TO 1069 

1079 REM vytisk pres ZX Interface 1 

1080 CLS : POKE 65523,29: RANDOMIZE USR 65500: PRINT U$:AT 6.3;TAB 29;AT 7.3;" ti 
POZORNENl:";TAB 29;AT 3,3 ;TaB 29:AT 9.3:" Program je upraven pro";TAB 29;AT 10.3 

tisk pres ZX Interface 1,";TAB 29;AT ll.3;TAB 29 ;at 21.0;TAB 3; "Zmaekni jake 
koliv tlacitko~;TAB 32: PAUSE O 

1090 FORMAT "t";300: OPEN #4:"t": FOR p = 2 TO poc: PRINT #4;)$<!>>: NEXT p: CLOSE 
#4: CLS : GO TO 1021 

1091 REM lristrukce*«************ 

1092 CLS : PRINT AT 4.11;"1NSTRUKCE": PRINT : PRINT “Nize uvedene operate je noz 
no VoI at primo ze SLOVNIKU. " 

1093 PRINT AT 10,0; " 'OR'.zpet na prvni stranku.AND'.na dalsi st 

ranku" ' " ' AT'.na posledni stranku*.STOP'.menu.NOT 

’.vytnazani radku.TO'.hledani- slova" 

1094 PRINT u$;AT 21.3;" ENTER = rravrat ke slovniku " 

1095 PAUSE O: LET c-PEEK 23560: IF C=13 ThLn CLS : GO TO 1058 

1096 GO TO 1095 

1097 REM Zkouseni siov«*****««»* 

1098 CLS : PRINT u$;AT 10.0;" SI ovo: " . "Ekv i va 1 ent.: " ; TAB 32: LET n=0: LET a = l: LE 
T O = -1: LET k-0: LET ok = n: GO TO 1113 

1099 RANDOMIZE : LET Z-INT (RND*poc>+2: LET y-1 NT <RND*2) 

1100 IF v THEN LET xo=17: LET ox 1: GO TO 1102 

1101 LEI XO=1: LET ox-17 

1102 PRINT u$;AT li.O;" ";l$<z,xo TO xo-15);TaB 32: INPUT "Ekvivalent:"; LINE z$ 
: IF z$”" OR z$-" " THEN BEEP .2.20: GO TO 1102 

1103 PRINT u$;AT 11.16:z$;TAB 32: LET X=0 c 

1104 FOR p-1 TO 16: LET q=CODE l$(Z,OX+p TO OX*p): IF q-32 OR q = 44 OR q-59 THEN 

LET sd-p: GO TO 1106 " 

1105 NEXT p 

1106 LET c-0 

1107 IF ZS= 1$< Z, OX TO OX+Sd-1 ) THEN LET Ok = «i: GO TO 1110 

1108 IE NOT C THEN LET OX-OX+Sd+1: LET Sd-LEN ZS: LET C-l: GO TO 1107 

1109 LET Ok-n 

1110 IF NOT ok THEN PRINT m$; AT 2.11;TAB 20;AT 3.11;" SPATNE! ”;AT 4.11;TAB 20: 
POKE 65523.28 

till IF Ok THEN PRINT INK 9; PAPER 3; FLASH 1;AT 2.11;TAB 20;AT 3.11;" SPRAVNE " 
;AT 4,11;TAB 20: POKE 65523,29 

1112 PRINT AT 17,0;"Spravrie:"'1$(Z>: RANDOMIZE USR 65500 

1113 LET o-o+l: LET k=k+<l AND ok): PRINT u$;AT 8.0;" Pokusu: ":o." Spravnych: " 

;k;TAB 32: PRINT FLASH l:u$;AT 21.10;" ZKOUSET ? " 

1114 PAUSE O: LET C-PEEK 23560: IF C-226 THEN GO TO 1021 

1115 PRINT U$;AT 21,0;" ";TAB 32: GO TO 1099 

1116 REM BEEP 

1117 DATA 017.100,098.038,010.058.072.092,031.031.031.014.254.238.016.237.121.06 
7.016.254.037,032.244.028.021,032.232,201.058.072.092 


II. Pomocna tla&ftko EDIT 

Z mbdu 3 se Ize prostfednictvfm tla- 
6ltek EDIT „dovolat pomoci“ v podob§ 
souboru instrukef, ktera dale zjedno- 
duSujl a urychlujl jak pouilvanl slov¬ 
niku, tak i jeho upravy. 

Provedenl jednotlivych ukonO 
umoiftuje sou6asn6 stisknutf SYMBOL 
SHIFT a nSkter§ho z nasledujlclch 
tlafiltek: 

OR — zp§tn6 vyvoianl 1. stranky 
z kter6hokoli mlsta ve slovniku. Pouzi- 
teln6 v m6du 3 — „dtenl slovniku". Kur- 
sor spo£fv& vlevo nahofe. 

AND — vyvoianl bezprostfednd nasle- 
dujlcl stranky. Pouiitelna v mbdu 
3 — „Ctenl slovniku". 

AT — pFesun na posledni stranku. 
Kursor spoCIva na zaCatku poslpdniho 
slova. 

STOP — ndvrat k zakladnfmu vybSru 
(menu). Pouiitelna v mbdech 1,3,6. 

NOT — okamiita vymazoinl ceiaho 
Fadku. Pouiitelna v m6du 3. 

TO — vyhled£v6nl urCitaho slova. 

Pozor: PFed kaidym pouiitlm SYMBOL 
SHIFT s dotyCnym tlaCftkem je nutno 
nejdrlve vrditit se pres ENTER ke 
slovniku, a to k m6du 3 — Ctenl slov¬ 
niku. 



Jaroslav Huba 


Sandrlk 320 

' 96661 HodruSe-H6mre 

Tento program umoiftuje kresbu elektronickych schamat, strojnick^ch 
vykresov, titulnych obrAzkov k rdznym programom a podobne, priamo pomocou 
tlatttok kldvesnice poiltaia. Dok<i2e automaticky kreslif viacero druhov fciar, 
a to bucT mddom PLOT (bod. po bode), alebo m6dom DRAW (diarka za eiarkou) 
— vkf v^znam jednotlivych tla&ltok. 


Uiivater programu nr»a k dispozlcii 
kresliacu plochu o rozmere Styroch 
obrazoviek, jedna obrazovka * jeden 
KVADRANT. Prechody z kvadrantu do 
kvadrantu su riadena automaticky pro- 
gramovo pohybom kurzora. 

Oalej je moin6 kedykorvek si nadefi- 
novaf obrazee (SABLONKY), o maxi- 
mainej ploche 590 znakov, ktora su pri 
vkladani do pamSte automaticky Clslo- 
van6 a hlavna udaje o nich su zaplsana 
v MENU SABLON, ktora je uiivaterovi 
k dispozlcii kedykorvek, po stlaSenl 
vyvoiavacej kiavesy. Tento subor maxi¬ 
mal ne 10 Sablon je moina nahraf na 
mgf pasku a naopak, je moina si do 
programu dohr&f ui hotovy Sablonkovy 
subor z p^skyrOalej mftieme nakresle- 
ny obrazok nahraf a uchovaf na mgf 
pdsok, alebo si mOieme z p4ska 
prehraf obrizok do pamSte poCI- 
tafia. Pfi nespravnej manipuiacii 
vypisuje chybove hiasenia,, na BREAK 
reaguje obvyklym spdsobom. Uiivater 


ma taktiei k dispozfcii pevne ulozeny 
NAVOD NA POUZIVANIE, ktory si m6ie 
vyvolaf kedykorvek ho potrebuje. Pro¬ 
gram okrem BASICu obsahuje aj 
4 podprogramy (RUTINY) v strojovom 
k6de. 

UPOZORNENIE: Pred nahratim pro¬ 
gramu si prepnite pofiltaC do m6du 
maiych pismen! 

UilvatePska parametre: 

Kresliaca plocha: 348 x 508 bodov 
Ovlddanie: cez tastaturu pomocou 36 
tladltok (mala i verka znaky) 

Podet funkeii: 46 

Podet uchovdvanych obrazoviek (6079 
bajtov): 4 

Kapacita RAM pre Sablonky: 4720 
bajtov 

Volne miesto pre BASIC: pribiiine 200 
bajtov 

Volne miesto pre CODE: pribliine 84 
bajtov 


Typy krestenych diar: 


- r 


Podet farieb: 8 
Druh farieb: ink 

Ovladanie zmien kvadrantov: automa- 
ticka podra polohy kurzora 
Indikacia polohy kurzora: x — od 1 do 
254 

y — od 1 do 
174 


Technick6 parametre: 

RAMTOP: 35800 

Dfika programu v strojovom kdde: 
29730 bajtov 
PoCet rutin: 4 


OrganizAcia RAM: 


Zaiiatok 

Koniec 

Nizov 

tip 

Dfika 

23756 

35302 

SUPERDRAW 

LINE 27 

11546 

35800 

41879 

I.KVADRANT 

CODE 

6079 

41880 

47958 

II.KVADRANT 

CODE 

6079 

47959 

54037 

III.KVADRANT 

CODE 

6079 

54038 

58758 

Sablonky 

CODE 

4720 

58759 

59135 

INI58759 

CODE 

376 

59136 

59293 

PAINT 

CODE 

158 

59323 

59348 

LASER 

CODE 

26 

59349 

59370 

rezerva 


22 

59371 

59398 

MEM0RY+ 

CODE 

28 

59399 

65478 

IV.KVADRANT 

CODE 

6079 

41192 

47 
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OCLEAR 35799: LOAD ""SCREEN* 

:BEEP .6,20:BEEP .3,40:FOR x = lT0 
4: BEEP .7,30:LOAD ""CODE :NEXT 
x:BEEP .5,35:LOAD "" 

27 LET PR=VAL "0": DIM T(VAL " 
4"): LET UA=VAL "54038": LET T<1 
>=VAL "35800": CLS : PRINT BRIG 
HT 1; FLASH 1;AT VAL "6",VAL "6" 
;"K R E S L I C + + +"; FLASH 0; 

BRIGHT 0: LET KLP=1: LET 0DK=VA 
L "16384": LET DLZ=VAL "6079": P 
OKE VAL "59324",VAL "10": RANDOM 
IZE USR VAL "59323": LET CQR=1: 
PRINT BRIGHT 1; FLASH 1;AT VAL 
"10",VAL "10";"S U P E R "; FLAS 
H O; BRIGHT O: PAUSE VAL "100": 
CLS 

28 PRINT AT VAL “20",O;"NEVYPI 
NAJ MAGNETOFON": LOAD ""SCREEN* 

: PRINT FLASH 1;"STLAC KLAVES"; 
FLASH O: PAUSE 0 

29 LET ZRAD=0: GO SUB VAL "700 
": LET T(2)=VAL "41880": LET T<3 
)=VAL "47959": LET T(4)=VAL "593 
99" 

30 PAPER VAL ”7": LET HB=VAL 
"O": LET HR=VAL "O":' CLS : BORDE 
R VAL "5": LET x=VAL "127": LET 
y=VAL "87": LET zw=VAL "1": LET 
r=VAL "O": LET tocka=VAL "1": LE 
T bip=0: LET ink=0: LET ax=VAL " 
,127": LET ay=VAL "87" 

31 DIM H(VAL "1",VAL "1"): DIM 
A(VAL "11",VAL "1"): DIM B(VAL 

"11",VAL "1"): DIM C(VAL "12",VA 
L "1"): DIM X(VAL "11"): DIM Y(V 
AL "11"): DIM U(VAL “12"): DIM b 
*(VAL "11",VAL “6") 

~ 32 INPUT "Medzery:";zrr 

33 PRINT #1;"Stlac "; BRIGHT 1 
;"ERTDFXCVUI0P6LJZNMBS 0-7"; BRI 
GHT O 

34 PRINT #1;AT O,O; "x=" ;x;TAB 


58 IF 

s*=“u' 

" THEN 

LET zw=0: L 

520 

IF INKEY*< >"" THEN GO TO V 

r=0: 

GO TO 

VAL “3 

3 M 

AL "5 

20" 

60 IF 

s*="i 

" THEN 

LET zw=l: L 

530 

GO TO VAL "33" 

r=0: 

GO TO 

VAL ”33" 

540 

IF F'R= 1 THEN GO TO VAL "57 

62 IF 

s*=" j 

'■ THEN 

LET zw=0: L 

0" 


r=l: 

GO TO 

VAL "33" 

544 

LET HB=HB+1 

64 IF 

s*="g 

" THEN 

INPUT "meno 

545 

IF HB>VAL "10" THEN GO TO 

1 ;1*: SAVE 1*SCREEN* : GO TO VA 

VAL " 

8300" 

"33" 




547 

GO SUB VAL "8098": GO SUB V 

65 IF 

s*="l 

" THEN 

INPUT AT 0, 

AL "8100" 

"Load 

meno?' 

" ;1 *: LOAD 1*SCREEN 

550 

INPUT "VLOZ ROZMERY SABLONK 

: GO 

TO VAL 

"33" 


Y V ZNAKOCH,SIRKA= ";X(HB);“ VYS 

66 IF 

s*="p 

“ THEN 

GO TO VAL " 

KA= " 

;Y(HB) 

>" 




551 

INPUT "VLOZ MENO SABLONKY ( 

68 IF 

s*="o 

" THEN 

LET bip=NOT 

max 6 

, znakov)";b*(HB): LET U(l)= 

lip: GO TO VAL "33" 


VAL " 

54038" 

70 IF 

s*>="0“ AND 

s*<="7" THEN 

552 

LET U(HB+1)=U(HB)+(X(HB)*Y( 

LET ink=VAL 

s*: GO 

TO VAL "33" 

HB)*8) 

72 IF 

s*="n 

" THEN 

LET xs=x: L 

554 

IF U(HB+1> >VAL "58758" THEN 

ys=y 

: GO TO VAL " 

33" . 

GO 

TO VAL "582" 

75 IF 

s*="b 

" THEN 

INPUT #1;AT 

556 

LET ax=x: LET ay=y: LET x=l 


0,0;TAB VAL "20";"Stupne: ";sa: 

PLOt xs,ys: DRAW INK ink; OVER 

r;x-xs,y~ys,so/VAL "180"*PI 

80 IF s*<>"m" THEN GO TO VAL 
"140" 

90 LET rad=SQR ((x-xs)*(x-xs)+ 
(y-ys)*(y—ys)): IF rad=0 THEN G 
O TO VAL "33“ 

95 IF xs+rad>VAL "254" THEN G 
O TO VAL "33" 

97 IF xs-rad<1 THEN GO TO VAL 

"33" 

lOO IF ys+rad>VAL "174" THEN G 
O TO VAL “33“ 

110 IF ys—rad<l THEN GO TO VAL 

-"33" 

120 CIRCLE INK ink; OVER r;xs, 
ys,rad 

140 IF s*—"z" THEN GO SUB VAL, 
"9995": GO TO VAL "33" 

141 IF s*—"s" THEN GO TO VAL " 
32" 


: LET y=l: LET PAP=6 

557 FOR J=21 TO 22-Y(HB) STEP - 
1: FOR 1=0 TO X(HB)-1: PRINT PA 
PER PAP;AT J,I;" ": NEXT I: NEXT 

J: LET PR=1 

558 IF ZRAD=1 THEN LET b*(HB>= 
"“: LET X(HB)=0: LET Y(HB)=0: LE 
T HB=HB—1: LET ZRAD=0 

560 PRINT #1;AT 0,0;"CISLO SABL 
ONKY= "; FLASH 1; BRIGHT 1;HB; B 
RIGHT O; FLASH O: PAUSE lOO: BEE 
P .5,10 

567 LET KR=0: LET PR=1 

568 IF PAP=7 THEN GO TO VAL “5 
85" 

569 GO TO VAL "33“ 

570 LET Xl=l: LET Yl=l: LET U(H 
B)=UA: LET X2=X(HB): LET Y2=Y(HB 
): LET PAP=7: LET zw=l: LET r=0 

575 GO SUB VAL "900" 

580 GO TO VAL "557" 

582 LET PAF=7: PRINT #1; FLASH 


VAL "lO";"y=";y;TAB 

VAL 

"20";"QD 

142 

IF 

s*="K" 

OR s*= 

"k" 

THEN 

G 

1; AT 0,0; "F'QZOR PREKRACUJE KAPAC 

R= ";CQR 



0 TO 

VAL 

"540" 





ITU RAM!": PAUSE VAL "100": PRIN 

35 LET s*=INKEY*: 

IF s*="" THE 

143 

IF 

s*="h" 

OR s*= 

"H" 

THEN 

G 

T #1;AT 0,0;" 

N GO TO VAL "35" 



O TO 

VAL 

"600“ 





": LET U(HB+1)=0: L 

36 LET zr=l: IF s* 

= "E" 

OR s*=" 

144 

IF 

s*="w" 

OR s*= 

" W" 

THEN 

6 

ET ZRAD=1: GO TO VAL "558" 

R" OR s*="T" OR s*=" 

D" OR s*="F" 

O SUB VAL "700 

" 




585 GO SUB VAL "8099": GO SUB V 

OR s*="X" OR s*="C" 

OR 

s*="V" T 

145 

IF 

s*="q" 

OR s*= 

"0" 

THEN 

G 

AL "8100": GO TO VAL "8200" 

HEN LET zr=zrr 



0 TO 

VAL "800" 





600 LET PR=0: INPUT "CISLO SABL 

38 IF s*="a" THEN 

GO 

TO VAL " 

146 

IF 

s*="Z" 

THEN 

GO 

TO VAL 

.. 

ONKY?= ";K 

500" 



8040' 

" 






610 IF (INT <X/B)+X(K>>>32 THEN 

39 IF s*="0" THEN 

LET 

KLP=1 

147 

IF 

s*="B" 

THEN 

CLS 



60 TO VAL "690" 

40 IF s*="r" OR s* 

= "R" 

THEN L 

148 

GO 

TO VAL 

11 0*3 ** 




620 IF (INT <Y/8)+Y(K))>22 THEN 

ET dx=0: LET dy=l*zr 

: GO 

TO VAL 

200 

IF 

x+dx >— 

VAL "255" 

THEN i 

GO 

GO TO VAL "695" 

"200" 



TO VAL 

"8320" 





630: LET X2=INT ((X/8+1)+(X(K>- 

41 IF s*="G" THEN 

LET 

KLF=2 

205 

IF 

x+dx<= 

0 THEN 

GO 

TO VAL 

1)): LET Y2=INT ((Y/8+1>+(Y(K)-1 


42 IF s *="t" OR s*="T" THEN L 
ET dx=l*zr: LET dy=l*zr: GO TO V 
AL "200“ 

45 IF s*="-f" OR s*="F" THEN L 
ET dx=l*zr: LET dy=0: GO TO VAL 
" 200 " , 

47 IF s*="v" OR s*="V" THEN L 
ET dx=l*zr: LET dy=-l*zr: GO TO 
VAL "200" 

50 IF s*="c" OR s*="C" THEN L 
ET dx=0: LET dy=-l*zr: GO TO VAL 

" 200 " 

52 IF s*="x" OR s*="X" THEN L 
ET dx=-l*zr: LET dy=-l*zr: GO TO 

VAL "200" 

54 IF s*="d" OR s*="D" THEN L 
ET dx=-l*zr: LET dy=0: GO TO VAL 

" 200 " 

56 IF s*=”e" OR s*="E" THEN L 
ET dx=-l*zr: LET dy=l#zr: GO TO 
VAL "200" 


48 
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"8350" 

210 IF y+dy>=VAL "175" THEN GO 

TO VAL "8370" 

215 IF y+dy<=0 THEN GO TO VAL 
"8400" 

240 IF r THEN PLOT OVER l;x,y 

250 IF zw AND NOT tocka THEN P 
LOT OVER 1;x,y 

260 LET x=x+dx: LET y=y+dy 

270 LET tocka=POINT (x,y> 

300 IF KLP=1 THEN PLOT INK in 
k;x,y 

301 IF KLP=2 THEN GO TO VAL "8 
020 " 

302 IF KLP=2 THEN DRAW INK in 
k;dx,dy 

310 IF bip THEN BEEP VAL ".012 
",VAL "44" 

320 GO TO VAL "33" 

500 IF INKEY*< >"" THEN 60 TO V 
AL ”500" 

501 IF INKEY*="" THEN GO TO VA 
L "501" 

510 PRINT INK ink; OVER r;AT A 
BS (<174-y>/8-.45),x/8;INKEY* 

515 IF x<247 THEN LET x=x+8 


)): LET KR-1: LET X1=INT (X/8+1) 
: LET Y1=INT (Y/8+1): LET UAX=U( 
K): GO SUB VAL "900“ 

632 LET zw=l: LET r=0: LET PR=0 
640 GO TO VAL "33" 

690 RANDOMIZE USR VAL "59323": 
PRINT #1;AT 0,0;"P0SUN KURZOR DO 
LAVA O ";((X+(X(HB)*8))—VAL "254 
">: PAUSE VAL "150": PRINT #1;AT 
0,0;” ": GO T 

O VAL "33" 

695 RANDOMIZE USR VAL "59323": 
PRINT #1;AT 0,0;"P0SUN KURZOR DO 
LU O ";((Y+(Y(HB)*8)>-VAL "174") 
: PAUSE VAL "150": PRINT #1;AT O 
,0;" ": GO TO VAL "33 

700 GO SUB VAL "8098": GO SUB V 
AL "8100": RANDOMIZE USR VAL "59 
371 " 

703 CLS : RANDOMIZE USR VAL "59 
323" 

705 PRINT AT 0,8;"NAV0D NA POUZ 
ITIE"; AT 2,4; "NA ZACI'ATKU SI PRE 
PNITE";AT 3,4;" POCITAC DO MODU 
MALYCH";AT 4,4;"PISMEN - ";"CAPS 


5. sig. 


SHIFT";" + ";"2" 

706 PRINT AT 8,2;"ERTDFXCV";" - 
POHYB KURZORU"- 

710 PRINT AT 10,2;"u";" - KRESL 
ENIE";AT 10,17;"j";" - GUMOVANIE 
"j AT 12,2;"i";" - POHYB BEZ KRES 
BY";AT 14,2;"p";" - HORUCI START 
"j AT 16,2;"g";" - SAVE SCR*" 

715 PRINT AT 16,21;"z“;" - COPY 
";AT 17,24;"CONSUL";AT 19,2;"I"; 
" - LOAD SCR*";AT 19,19;"s";" - 
MEDZERY" 

720 PRINT #1; FLASH 1;AT 0,0;"S 
TLAC KLAVES!"; FLASH O: PAUSE O 
725 RANDOMIZE USR VAL "59323": 
CLS ; PRINT AT 1,2;"n-m";" - KRU 
ZNICA—STRED = n";AT 2,15;"POLOME 
R = m" 

730 PRINT AT 4,2;"a";" - PISANI 
E ZNAKOV ";AT 6,2; "b";" - STUPNE 
SPOJENIA BODOV" 

735 PRINT AT 8,2;"K-k";" - VKLA 
DANIE SABLON";AT 10,2;"H-h";" - 
VYBERANIE Z RAM NA SCR*";AT 12,5 
;" <PODLA KURZORU...)" ; AT 14,2;" 
Q-q";“ _ vYPIS MENU SABLON"; AT 1 
8,2;"W-w";" - NAVOD ";AT 16,2;" 
LOAD/SAVE SABLONY" 

750 PRINT #1,AT -1,0;" 

": PRINT #1,AT 
O,O;"STLAC KLAVESU! »; 

PAUSE O: CLS : RANDOMIZE USR VAL 
"59323" 

755 PRINT AT 2,2;"o - BEEP ";AT 
4,2;"0 - PLOT";AT 6,2;"G - DRAW 

760 PRINT AT 8,2; "Z";" - FILL"; 
AT 10,2;"B";" - CLS" 

763 PRINT #1,AT 0,0;"STLAC KLAV 
ESU": PAUSE O; GO SUB VAL "8099" 

; GO SUB VAL "8100" 

764 CLS : GO SUB VAL "8099"; GO 
SUB VAL "8100"; RANDOMIZE USR V 

AL "59371" 

765 RANDOMIZE USR VAL "59323"; 
"RETURN 

800 LET PR=0: INPUT "CHCES MENU 
? a/n";a* 

810 IF a*="a" OR a*="A" THEN G 
O TO VAL "820" 

815 GO TO VAL "33" 

820 RANDOMIZE USR VAL "59323": 

60 SUB VAL "8098": GO SUB VAL "8 
100": CLS 

826 PRINT AT 0,10;“M E N U";AT 
l,0;"Stav obsadenia pamate sablo 
nkami";AT 3,1;"CISL0" 

830 PRINT AT 3,8;"MENO";AT 3,14 
;"VYS * SIR";AT 3,25;"ADRESA" 

835 FOR u=5 TO H6+5 

836 PRINT AT u,3;(u-4);AT u,7;b 
* <u-4>;AT u,15;Y(u-4);AT u,20;X< 
u—4) ; AT u, 25;U(u-4) 

837 NEXT u 

840 INPUT "SAVE - LOAD SABLONKY 
s/1";a* 

845 IF a*="s" OR a*="S" THEN G 
O TO VAL "850" 

847 IF a*=" 1" OR a*="L" THEN G 
0 TO VAL "870" 

849 GO SUB VAL "8099": GO SUB V 
AL "8100": GO TO VAL "34" 

852 LET H(1,1)=HB: FOR L=1 TO H 
B: LET A<L,1)=X(L): LET B(L,1)=Y 
(L): LET C(L,1> =U(L): NEXT L 

853 LET C (HB+1, 1) =U (HB+1) 

854 INPUT "NAZOV SAVE SUBORU "; 
a*: SAVE a* DATA HO: SAVE "X" D 
AT A AO: SAVE "Y" DATA BO: SAVE 

"U" DATA CO: SAVE "b*" DATA b* 
O: SAVE a*CODE U < 1) , U (HB)-U(1)— 
1: GO TO VAL "849" 

870 PRINT #1,AT 0,0;"ZAPNI MAGN 
ETOFON ! ": LOAD "" DATA HO: LO 
AD "" DATA AO: LOAD "" DATA B <) 

: LOAD "" DATA CO: LOAD "" DATA 
b*(): LOAD ""CODE 
872 PRINT #1;AT 0,0;"CAKAJ, UKL 
ADAM!" 

875 LET HB=H(VAL "1",VAL "1"): 
FOR L=VAL "1" TO HB: LET X(L)=A( 


L,VAL "1"): LET Y(L)=B(L,VAL "1" 
): LET U(L)=C(L,VAL "1"): NEXT L 

880 LET U(HB+1)=C(HB+1,1): LET 
UA=U(HB+1): GO TO VAL "849" 

900 PRINT #1; FLASH 1; BRIGHT 1 
;AT 0,0;"WAIT PLEASE!"; BRIGHT O 
; FLASH 0: DATA 1,6,1,6,VAL "920 
",7,14,7,14,VAL "960",15,22,15,2 
2,VAL "1000",1,6,7,14,VAL "1010" 
,7,14,15,22,VAL "1050",1,6,15,22 
,VAL "1100" 

905 RESTORE : FOR H=1 TO 6 
910 READ HI,H2,H3,H4,CR 
912 IF Y1>=H1 AND Y1<=H2 AND Y2 
>=H3 AND Y2<=H4 THEN GO TO CR 
915 NEXT H 

920 REM ** zona 1 ** 

921 LET SH=VAL “22432": LET HR= 
1: LET Z=1: GO SUB VAL "930": GO 

SUB VAL "8000": RETURN 
930 LET D=X2—XI: LET C=SH-(Y1~H 
R)*32+256: LET A=Y2-Y1+1: LET E= 
Xl-1 

935 REM ** generovanie adries * 

* 

936 FOR P=Z TO A: FOR R=1 TO 8: 
LET PA=C-(R*256)+E 

940 IF KR=0 THEN GO SUB VAL "1 
200": IF KR=0 THEN LET UA=UA+D+ 
1 

945 IF KR=1 THEN GO SUB VAL "1 
300": IF KR=1 THEN LET UAX=UAX+ 
D+l 

950 NEXT R: LET C=C-32: NEXT P: 

959 RETURN 

960 REM ** zona 2 ** 

961 LET SH=VAL "20448": LET HR= 
7: LET Z=1: 60 SUB VAL "930": GO 

SUB VAL "8000": RETURN 

1000 REM ** zona 3 ** 

1001 LET SH=VAL "18400": LET HR= 
15: LET Z=1: GO SUB VAL "930": G 
O SUB VAL "8000": RETURN 

1010 REM ** zona 1 - 2 ** 

1011 LET Y3=6: LET SH1=VAL "2243 
2"; LET HR1=1: LET SH2=VAL "2044 
8 " 

1015 LET C2=SH2+VAL "256": LET C 
1—SHI—(Yl—HR1)*VAL "32"+VAL "256 
": LET D=X2-X1: LET A=Y3-Y1+1: L 
ET F=Y2—Yl+1 

1020 LET C=C1: LET Z=l: LET E=X1 
-1: GO SUB VAL "935": LET C=C2: 
LET Z=A+1: LET A=F: GO SUB VAL " 
935": GO SUB VAL "8000": RETURN 

1050 REM ** zona 2 - 3 ** 

1051 LET Y3=14: LET SH1=VAL "204 
48": LET HR1=7: LET SH2=VAL "184 
00": GO TO VAL "1015" 

1100 REM ** zona 1-2-3’** 

1101 LET Cl=(VAL "22432">—(Yl—1) 
*32+256: LET C2=VAL "20704": LET 

C3=VAL 18656": LET A=6-Y1 + 1: L 
ET F=Y2—Yl+1: LET D=X2-X1: LET C 
=C1: LET Z=l: LET E=X1-1: GO SUB 
VAL "935": LET C=C2: LET Z=l: L 
ET A=8: GO SUB VAL "935": LET C= 
C3: LET Z=l: LET A=Y2-14: GO SUB 
VAL "935": GO SUB VAL "8000": R 
ETURN 

1200 BEEP .05,35: LET ODK=PA: LE 
T DLZ=D+1: LET KAM=UA: GO SUB VA 
L "8100": RETURN 

1300 BEEP .05,VAL "40": LET ODK= 
UAX: LET DLZ=D+1: LET KAM=PA: GO 
SUB VAL "8100": RETURN 
8000 IF KR=0 THEN LET UA=UA-D 
8010 IF KR=1 THEN LET UAX=UAX-D 
8012 PRINT #1;AT 0,0;" 

8015 RETURN 

8020 IF x +dx >VAL "254" THEN GO 
TO VAL "8030" 

8022 IF x+dx< 1 THEN GO TO VAL " 
8030" 

8024 IF y+dy>174 THEN GO TO VAL 
"8030" 

8026 IF y+dy<1 THEN GO TO VAL " 
8030" 

8028 GO TO VAL "302" 


8030 LET KLP=1: GO TO VAL "300" 
8040 RANDOMIZE USR VAL "59323": 
INPUT "Farba INK vyplne";FAR 
8042 IF FAR<0 OR FAR>7 THEN GO 
TO VAL "8040" 

8044 POKE VAL "59293",FAR+56 
8046 RANDOMIZE USR VAL "59136“ 
8048 GO TO VAL "33" 

8055 RETURN 

8098 LET ODK=VAL "16384": LET D 
LZ=VAL "6079": LET KAM=T(CQR): R 
ETURN 

8099 LET ODK=T(CQR): LET DLZ=VAL 
"6079": LET KAM=VAL "16384": RE 

TURN 

8100 RANDOMIZE QDK: POKE VAL "59 
380",PEEK VAL "23670": POKE VAL 
"59381",PEEK VAL ”23671": RANDOM 
IZE DLZ: POKE VAL "59386",PEEK V 
AL "23670": POKE VAL "59387",PEE 
K VAL "23671": RANDOMIZE KAM: PO 
KE VAL "59383",PEEK VAL "23670": 

POKE VAL "59384",PEEK VAL "2367 
1": RANDOMIZE USR VAL "59371": R 
ETURN 

8200 LET PR=0: LET x=ax: LET y=a 
y: GO TO 33 

8300 RANDOMIZE USR VAL "59323" 
8305 PRINT #1; BRIGHT 1;AT 0,0;" 
KONIEC SABLON!"; BRIGHT 0 
8310 PAUSE VAL "100" 

8315 RANDOMIZE USR VAL "59323": 
GO TO 33 

8320 GO SUB VAL "8098": GO SUB V 
AL "8100": IF CQR=1 THEN LET CQ 
R=2: LET X=1 

8325 IF CQR=3 THEN LET CQR=4: L 
ET X=1 

8330 GO SUB VAL "8099": GO SUB V 
AL "8100": GO TO VAL "300" 

8350 GO SUB VAL "8098": GO SUB V 
AL "8100" 

8355 IF CQR=2 THEN LET CQR=1: L 
ET X=254 

8360 IF CQR=4 THEN LET CQR=3: L 
ET X=254 

8365 GO SUB VAL "8099": GO SUB V 
AL "8100": GO TO VAL "300" 

8370 GO SUB VAL "8098": GO SUB V 
AL "8100": IF CQR=3 THEN LET CQ 
R=1: LET Y=1 

8375 IF CQR=4 THEN LET CQR=2: L 
ET Y=1 

8380 GO SUB VAL "8099": GO SUB V 
AL "8100": GO TO VAL "300" 

8400 GO SUB VAL "8098": GO SUB V 
AL "8100": IF CQR=1 THEN LET CQ 
R=3: LET Y=174 

8410 IF CQR=2 THEN LET CQR=4: L 
ET Y=174 

8420 GO SUB VAL "8099": GO SUB V 
AL "8100": GO TO VAL "300" 

9990 FOR Q=P0ZYl/2 TO P0ZY2/2-2: 
LPRINT " ";: NEXT Q 

9991 IF AAA+BBB=2 THEN LPRINT " 
*";: RETURN 

9992 IF AAA=1 THEN LPRINT "o";: 
RETURN 

9993 IF BBB=1 THEN LPRINT "o";: 
RETURN 

9995 FOR W=0 TO VAL "255": LET P 
OZY1=0: FOR G=P0ZY1 TO VAL "173" 

STEP 2: LET AAA=PQINT (W,G): LE 
T BBB=PQINT (W,G+1): IF (AAA+BBB 
)>0 THEN LET P0ZY2=G: GO SUB VA 
L "9990": LET P0ZY1=P0ZY2 

9996 NEXT G: LPRINT : NEXT W: LP 
RINT : LPRINT “OK": LPRINT : RET 
URN 

9999 CLS : GO TO VAL "900" 
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INI58759 - inicializaCny program pre interface 


58759 / 33 159 229 62 0 119 35 119 

58767 / 33 197 92 62 183 119 62 230 
58775 / 35 119 201 0 0 0 0 0 
58783 /Oil 000000 
58791 / 22 25 30 2A0 29 32 253 21 

58799 / 32 248 201 0 0 0 0 0 

58807 / 33 160 229 52 71 62 144 211 

58815 / 127 219 31 203 71 40 30 120 

58823 / 211 63 205 167 229 62 1 211 

58831 / 95 205 167 229 62 0 211 95 

58839 / 205 167 229 205 167 229 126 254 

58847 / 98 204 71 230 201 205 84 31 

58855 / 56 215 20 7 255 0 0 0 0 

58863 / 0 6? 32 205 183 229 13 32 

58871 / 248 0 201 0 0 0 0 0 

58879 / 33 159 229 126 198 16 119 254 

53887 / 84 210 71 230 33 160 229 70 

58895 / 144 56 237 79 205 239 229 201 

58903 / 87 33 160 229 70 144 56 15 

58911 / 79 205 239 229 33 197 92 62 

58919 / 183 119 35 62 230 119 201 213 

58927 / 62 13 205 187 229 209 24 233 

58935 /00000000 
58943 /00000000 
58951 / 33 159 229 62 O 119 35 119 

58959 / 62 13 205 187 229 201 0 0 

58967 /GOOOOOOO 
58975 / 245 14 1 205 239 229 241 214 

58983 / 164 33 149 0 79 70 121 254 

58991 / 0 40 20 170 254 127 48 2 

58999 / 24 1 13 35 121 254 255 32 

59007 / 236 14 1 205 239 229 201 120 

59015 / 254 127 48 9 229 197 205 183 

59023 / 229 193 225 24 230 203 191 229 

59031 / 197 205 183 229 193 225 24 218 

59039 /00000000 

59047 / 14 1 205 239 229 20t 0 0 

59055 /00000000 

59063 / 254 5 48 1 201 254 24 56 

59071 / 5 254 31 48 1 201 254 127 

59079 / 56 8 254 164 48 4 205 167 

59087 / 230 201 254 23 32 11 33 197 

59095 / 92 62 23 119 35 62 230 119 

59103 / 201 254 165 56 4 205 95 230 

59111 / 201 254 13 32 4 205 71 230 

59119 / 201 254 6 32 4 205 255 229 

591 21. / 201 205 183 22 9 201| 


PAINT - program pre vyplnanie obrazcov 
591 35 /JL158 125 92 95~58 126 92 

591 43 / 87 58 1 57 231 50 1 43 92 75 
591 51 / 66 66 205 84 231 75 4 120 

591 59 / 254 174 210 49 231 197 21 3 205 

59167 / 206 34 209 193 197 213 205 213 

59175 / 45 209 193 60 61 254 1 194 
59183 / 17 231 66 75 205 84 231 75 

59191 / 5 120 254 1 218 83 231 197 

59199 / 213 205 206 34 209 193 197 213 

59207 / 205 213 45 209 193 60 61 254 

59215 / 1 194 50 231 201 75 197 213 

59223 / 205 229 34 209 193 12 121 254 

59231 / 255 210 120 231 197 213 205 206 

59239 / 34 209 193 197 213 205 213 45 

59247 / 209 193 60 61 254 1 194 85 

59255 / 231 75 197 213 205 229 34 209 

59263 / 193 13 121 254 1 218 156 231 
59271 / 197 213 205 206 34 209 193 197 

59279 / 213 205 213 45 209 193 60 61 

59287 / 254 1 194 121 231 201 


LASER - akusticky efekt 


59323 

5°331 

59339 

59347 


/ 6 10 197 33 0 3 17 1 
/ 0 229 205 181 3 228 17 16 
/ 0 1 *7 237 87 3 9 240 193 1_f 
/ 233 201 


MEMORY+ - relokatyvny prenos dat v paafati 

5°371 1/ 245 1 97 21 3 229 221 229 ?53 229 
59379 / 33 216 139 17 0 64 1 191 
59387 / 73 237 176 253 225 271 225 225 
59395 1 / 209 193 241 201 


©- 

@ 
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pohyb kurzoru vodorovne 
vpravo po skokoch; 

SAVE obrazovky ako beine 
SAVE SCREEN#; 
sposob kreslenia DRAW, pri 
krestenf kurzor pri stladenom 
CAPS SHIFT a navotenych 
medzerach kresli spojitti diaru 


Vyznam a funkcie tlaCitok: 


Program je riadeny stlddanim kteves, 
pridom sa roziiduju mate aj verkd 
znaky. Verkd znaky sa zaddvaju spolu 
zo stladenim CAPS SHIFT. 

TladH- Funkcia 

ko_ 

(a) pisanie textu do obrdzku, polo- 

” hu prvdho znaku nastavime 

kurzorom, stladime a a znak, 
ktory chceme napisaf, pred 
kazdym cfaldim znakom mu¬ 
st me stladif a; 

(g) urduje stupne spojenia dvoch 

rdznych bodov, prvy bod urdi- 
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me kurzorom a stladenfm n, 
druhy tiei kurzorom a stlade¬ 
nim b. Podftad sa opyta na 
stupne obiuku, ktorym md da- 
nd body spojif. Napr. pre 
priamku zadame uhoi 0; 
funkcia CLS; 

pohyb kurzoru po bodoch kol- 
mo nadol; 

pohyb kurzoru po navolenych 
skokoch (MEDZERY) kolmo 
nadol; 

pohyb kurzoru vodorovne vfa- 
vo; 

pohyb kurzoru vodorovne vfa- 
vo po skokoch; 

pohyb kurzoru 45 stupdov vra- 
vo hore; 

pohyb kurzoru 45 stupftov vra- 
vo hore po skokoch; 
pohyb kurzoru vodorovne 
vpravo; 



po skokoch pri stladenom u, 
pri stladenom i kresli diarkova- 
nu diaru s preruSovanim 

o jeden bod (-); 

vyvotevanie dablonok z pa¬ 
rti ate. Kurzorom sa dostaneme 
do miesta, kde md byf ravy 
dolny roh dablonky, stladime 
h <H) a uddme dfslo dablonky, 
ktord sa md nakreslif (vyvolaf 
z RAM); 

pohyb kurzoru bez kreslenia 
pri mdde PLOT, (stladene O), 
prerudovand diara pri m6de 
DRAW (stladene G); 
mazanie starej kresby, bod po 
bode, prepnute na O; 
dvojfdzove vktedanie Sablonok, 
pri prvom stladeni zaddme 
vydku a dirku vklddanej dablony 
a jej ndzov, potom sa program 
vrdti do reiimu kreslenia 
a dablonku mdieme nakreslif 



© 


© 

© 
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v favom dolnom rohu obrazov- 
ky do priestoru, ktory sa vyfarbi 
zmenou PAPER. Druhym stla- 
Cenim k (K) Sablonku vloifme 
do pamSti. Sablonky su ttslo- 
van6 automaticky, maxim&lny 
poCet je 10. Program je zabez- 
peCeny proti vloieniu nespr£v- 
nych rozmerov a rozmerov pre- 
kraCujucich kapacftu pamate, 
ako aj proti prekrodeniu podtu 
Sablon; 

LOAD obr£zku ako beine LOAD 
SCREEN$; 

kresba kruinice, kurzor nasta- 
vi'me do poiadovandho stredu 
kruinice, potom stlaCtme n, 
kurzor posunieme do miesta, 
kadiaf md kruinica prechddzaf 
a stlaCfme m; 

udanie polohy stredu kruinice, 

udanie prvdho bodu pri sp&jani 

bodov pomocou b; 

pri pohybe kurzoru bude re- 

produktor piskaf; 

sposob kreslenia PLOT, bod za 

bodom; 

znovu nastartovanie programu, 
WARM START; 



pohyb kurzoru kolmo nahoru; 
pohyb kurzoru kolmo nahor po 
skokoch; 

udanie medzery (skoku) kurzo¬ 
ru pri suCasnom stlaCeni CAPS 
SHIFT, dfika skoku pri /O/, 
dfika Ciary pri /G/; 
pohyb kurzoru 45 stupftov 
vpravo hore; 

pohyb kurzoru 45 stupftov 
vpravo hore po skokoch; 


® N. 
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kreslenie podra kurzora; 
pohyb kurzora 45 stupftov 
vpravo dolu; 

pohyb kurzora 45 stupftov 
vpravo dolu po skokoch; 
po stlaCeni sa iniciaiizuje ovla- 
daci strojovy podprogram 
a obrdzok sa skopfruje cez 
mechanicku strojovu tlaCiarefi 
Consul 258; 

vyplft uzavretych figur. Nakre- 
slime nejaku uzavretu krivku 
(kruinica, Stvorec...), vojde- 
me kurzorom dovnutra a stla- 
Cime Z, potom uddme Cislom 
farbu, ktorou chceme utvar vy- 
plnif; 

po stlaCeni sa objavi na obra- 
zovke vypis MENU SABLON, 
udaje o stave doposial vloie- 
nych Sablon. Moino volaf ke- 
dykolVek; 

po stladenf sa na obrazovke 
objavi vypis NAVOD NA 
POU2IVANIE. Moino volaf ke- 
dykolvek; 

pohyb kurzoru 45 stupftov vfa- 
vo dolu; 

pohyb kurzoru 45 stupftov vTa- 
vo dolu po skokoch; 


0 stiaCenfm jednoho z tychto tla- 

Sitok sa navoli automaticky 
@ farba INK; 

CAPS SHIFT spolu s tlaCitkami pre po- 
suv kurzoru umoiftuje 
sk&kaf o dopredu navole- 
n6 medzery (s). 
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Uiivater m£ k dispozfcii plochu gty- 
roch obrazoviek, ktor6 sa mu automa- 
ticky prepfnaju ako n£hle sa kurzor 
pribllii k okraju PAPER. VSetky Styri 
kvadranty sa ukladaju v RAM a je 
moine ich jednu po druhej kopfrovaf 
(SAVE — g). Vravo dole, v ediCnej z6ne, 
su neustSle zobrazovand udaje o oka- 
miitej polohe kurzoru v suradniciach 
x a y, vpravo zase udaj o momentSInej 
polohe v kvadrante (QDR= Vgetky 
dCleiitd stavy su akustlcky indikovang 
a chybovg hlSsenie sa vypisuje taktiei 
v ediCnej z6ne. 

Pozn&mka: Prl prechode kurzorom 
s kvadrantu do kvadrantu je zakSzane 
a nemCime prejsf cez rohy PAPER, 
treba prech&dzaf cez hrany PAPER! 

Chybov6 hUisenia: 

KONIEC SAB LON! — PoCet gabion do- 
siahol 10. 

POZOR PREKRACUJE kapacitu 
RAM! — zadang gablona sa nevmestf 
do priestoru urCengho pre Sablonky; 
POSUN KURZOR DOLU O... — ga- 
blonka by sa pri Spatnom vyberani 
nevmestila do obrazovky, prekroCila by 
horny okraj PAPER; 

POSUN KURZOR DOLAVA O.. 
— gablonka prekraCuje pravy okraj 
PAPER. 


VYU21VANIE STROJOVYCH 
PODPROGRAMOV: 

Okrem programu v BASIC vyuifva 
KRESLIC+ aj 4 strojovC podprogramy, 
a to: 

INI58759 — inicializafiny program pre 
interfejs, 

PAINT — program pre vyplftanfe 
obrazcov, 

LASER — akusticky efekt, 

MEMORY+ — relokatyvny prenos dat 
v pamati. 


PrvS pomoc pri „nabtirani“ pro* 
gramu: . 

Pokiar by pri kreslenf doglo kvypad- 
nutiu z programu a CONTINUE by bolo 
neuCinnd, znovunabehnutie programu 
bez akShokorvek poSkodenia nakresle- 
n6ho obr&zku „ vykon&me odoslanfm 
„nult6ho“ prfkazu GOTO 36. 

Pokiar system odmieta prijaf infor- 
mScie cez INPUT, jedind pomoc je 
RESET. 


Pr&ca zo stiborom §abl6n: 

Kerf si chceme vytvorerte Sablony 
nahraf na mgf, vyvoteme si cez q (Q) 
MENU a na dotaz ..SAVE—LOAD SA- 
BLONY? s/P odpovieme a vloifme 
meno, pod ktorym chceme subor ga¬ 
bion uloiif na pgsku. Potom na obvykte 
..Start tape, then press any key.. 
sttedame fubovornu kISvesu. LOAD sa 
prevedie podobne. V menu sa vypisuju 
aj Cislg adries jednotlivych gabion a ich 
dlika, takie je moine program preruSif 
BREAK a nahrSvaf aj jednotlivg gablo- 
ny, Co je nepraktickg a navyge hrozi 
moinosf FahkCho omytu. 


Grafickg 

schema 

programu 



IZapametai si 
I suroeWee kurtam 
n skoc dorohu 
[obrazovky LET WR6 


/vyznoE zmcnou / 
/PAPER plochu / 
/kamsa vykrccb' / 

/ iablonko! / 

I-^- 


LET 
Z RAD-1 


LET PR-1 




EE3B| 


wSSm 


LET 

ZRAD-Jf 


Pozndmka: 

Je vyrhodng kreslif gabion ky v III. 
kvadrante, pretoie tym vyluCime 
moinosf nechcenSho prepnutia kva¬ 
drantu pri pohybe kurzoru v doinej 
Casti PAPER. Sablonky je moine vyvo- 
Igvaf len do plochy obrazovky! 

Inform&cie o rdznych farbSch 
v obrSzku sa uchovgva len pre obrgzok 
prSve kresleny na obrazovke, je tomu 
tak pre usporu pamSfovgho miesta, 
a je treba s tym poCftaf pri kreslenf 
farebnych obrSzkov, pri Ciernobielej 
kresbe niet iiadnych faikostf. 




nastOV 

J 

GO SOB 930 

prtmenni 

1 

OOSU8WM 


nastov 

premenni 


I 
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J. Bezdidek 

Mikropodita£ov4 systimy se uplatftuji prakticky ve vSech oborech a apiikace 
pfibyvaji. Stoupaji poiadavky na programovi vybaveni. Pfes mnoistvi u n<te 
vyvinutych a pFedvidinych vyvojovych systimu se v$ak stile setkivime s jejich 
nedostatkem. Proto se pouifvaji dostupni mikropodftade (mtkroprocesor 
pracuje stejfli v^konni ve vyvojovim systimu jako v „jednoduch£m u mikropo- 
ftitadh zileil jen na programovim vybaveni a pro efektivnost price jeiti na 
periferifch), na nich se programy odtacfujl a odlad&ni programy dasto uklidajf 
do pamitf ROM. Vznikajf ruzni programovaci zaFfzenf, vitiinou podle typu 
privi pouiivani pamiti. Proto by! navrien a realizovin programitor PGM-2, 
ktery je feien modulirni a umoiAuje programovat nejrQznijif typy pam&tf. 
Obecni je moini pouiit pro fiieni PGM-2 libovolny mikropo€itat, ktery mi 
dostadujicf z6nu pamiti pro iteni/programovani data a ffdicf program. 
V dlinku je popsino pFipojenf k SAP11. 


Signil 


1 aO 
3 a 1 
5 a 2 
7 a 3 
9 a 4 
11 a 5 
13 a 6 
15 a 7 
17 a8 
19 a 9 
21 a 10 
23 a 11 J 


adresovi 

signify 


25 Cm ias. konstanta 
27-5V-) 

29 +12Vknapijeni 
31 Ucc J 
33 XTAL1 

35 Y vystup 6104 
37 A vstup 5 104 
39 ACE uvoinini U 0 
41 Rn nastavenEUo 
43 U 0 vystup stabil. 
45 kT4 vstup stabil. 

47 +30 V napijeni 
49 0+ -i 


Popis zapojem 


PGM-2 se pFipojuje k SAPI 1 na 
sbirnici ARB-1 pres konektor 
K a plochy kabel. Vyiaduje dile pFipo- 
jenf ke zdroji stejnosmirneho napitf 30 
ai 70 V, schopnimu dodat alesport 
200 mA. Protoie i SAPt 1 „spije“ 
k pamiti RAM 64 kB, byl programitor 
reSen jako perlfirie IN/OUT. Signily 
A5, A6 a A7 prfmo Ffdf vybirovi vs tupy 
ob vodu styku, spolefcni se signily IOW 
a IOR. DodateCni byi programitor 
doplnin jednoduchym dekodirem 
-{74188), ktery je umfstin prfmo v krytu 
konektoru K. 

K pFipojenf je pouiito obvodu 3212. 
PFipojit programitor pFes programova- 
telny PPI8255 se ukizalo nevyhodni. 
VStiinu signilu je stejni zapotfebi 
zesffit a navfc pfi pFeprogramovinf 
8255 do jiniho reiimu se vystupy 
viech portu nastavf na urovert L (jako 
po RESET), coi by pusobilo potiie pfl 
procesu programovinf/verifikace 
v kaidi adrese. 


Na konektoru KP-1 jsou vyvedeny 
signily a urovni napitf, potrebni pro 
vSechny reiimy price s pamitmi. PFi- 
Fazenf urCuje Tab. 1. PFi programovinf 
8748 je nutni rozSfFit poCet ovlidacfch 


Obr. 1. Blokovd 
zapojenf 
programdtoru 
PGM-2 


oviidinf pro 
program 


2 i 

4 +5 V napijeni 

6 +5 V 

8 in nastaveni I 

10 W) 

12 A 7 mzeni 10101 
14 RES J 
16 d 7 OUTi 
18 d 6 OUT 
20 d 5 OUT 

22 d 4 OUT vystupnf data 
24 d 3 OUT (programo- 
vini) 

26 d 2 OUT 
28 d 1 OUT 
30 dO OUT) 

32 D 7 ") 

34 D 6 
36 D5 
38 D 4 

40 D 3 -data ARB-1 

42 D 2 

44 D 1 

46 DO 

48 d 71N "i 

50 d 6 IN 

52 d 5fN 

54 d 4 IN vstupm'data 
56 d 3 IN ’(ttenf) 

58 d 2 IN 
60 dl IN 
62 dOIN 


I vstupni data 
|(Ctenf) 


Tab. 2a. 

Oviidinf obvodu pro styk mikropoiftaCe s PGM-2. 


obvod 

funkce 

instr. 

adresa 

IO 1 

data pro programovinf 

OUT 

20 H 

IO 2 

naCteni data 

IN 

20 H 

IO 3 

Ffzenf 1 

OUT 

40 H 

IO101 

Ffzenf II 

OUT 

80 H 

ftfzeni 1 

bit 

103 funkce 

uroveh vyznam 



ftfzenf fl 


oviidinf stabilizitoru 
oviidinf reiimu IO 1 
nulovini Citafie adr. 
vstup tftafie adr. 
oviidinf vystupu Q4 
oviidinf tranzistoru T1 
oviidinf tranzistoru T2 
oviidinf tranzistoru T3 


IO101 funkce _ 

Q8 vybir obvodu IO102/S2/ 
Q7 Ffzenf funkce I0102/S2/ 
Q6 X 
Q5 X 
Q4 X 

Q3 oviidinf TO 
Q2 oviidinf RESET 
Q1 oviidinf tranzistoru T101 


stabil. blokovin 
velki imped, to 1 
nulovini 
dalif vySSf adr. 
Q4 

tranzistor sepnut 
tranzistor sepnut 
tranzistor sepnut 


uroveft vyznam _ 

M obvod aktivnf 

L velki impedance 


m6d programovinf 
latch adresy 
tranzistor sepnut 


signilu. Proto je na KP-1 vyvedena 
i datovi sbirnlce ARB- 1 (DO a2 D7) 
a adresovy signil A7. Odpojenf na- 
pijecfho napitf pro programovani 
obvody spfnadem Z/V umoini jejich 
bezpefini zasunutf do a vyjmuti 
z objfmky. 

Stabilizitor napitf je ovlidin z KP-1, 
a to jak uroveft a proudovi omezeni, 
tak uvolninf (vstup R 108). Bfokovinf 
se vyuifvi naprfklad u 8748 tak, ze 
signilem ALE nepFfmo kontrolujeme 
sprivnost zasunutf 8748 do objfmky 
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19,20.53,54 io 

j_— : -1- 105, 106, 107 


0 ARB-1 


Seznam sou££stek 


Rezistory 


100 Q. TR 151 
220 n, TR 151 
100 0, TR 151 
470 O, TR 151 
10 kO, TR 191 
TR 191, 10 kO 
TR 191, 4,7 kO 
TR 191, 2,2 kO 
TR 191, 4,7 kO 
TR 191, 10 kO 
TR 191, 4,7 kO 
TR 151, 22 0 
TR 191, 180 
TR 191, 4,7 kO 




]C13 

T/ yf) 

Ip 


Riot] 

lOkU 

JL -L 

Rft 5 

4k7 

KSY 71 

KD606 


R15 TR 151, 330 0 
R16 TR 151, 330 0 
R17 TR 191, 4,7 kfl 
R18 TR 191, 4,7 kO 
R19 TR 191, 4,7 kO 


R20 TR 191, 4,7 kO 

R21 TR 191, 4,7 kO 

R22 TR 191, 4,7 kO 

R23 TR 191, 4,7 kO 

R24 TR 191, 4,7 kO 























2xOA9 U3J701 


Laiioi 



BC177A 

BC313 

BC211 


JL Rn 

J2ale 


R25 TR191,22kO 
R26 TR 191, lOkfl 
R27 TR 191, 1,2 kO 
R28 TR 191, 19 kO 
R29 TR 191, 3,3 kO 
R30 TR 191, 10 kO 
R31 TR 191, 1,2 kO 
R32 TR 191, 1 kO 
R33 TR 191, 1 kft 
R34 TR 152, 680 n 


Kondenz&tory: 

C1.C2 

TE891, 50|»F 

C3, C4, C7, 

C8, CIO, C12 

TK 783, 68 nF 

C5, C6 

TE 984, 50 nF 

C9 

TE 981, 20 kF 

C11 

TE986, 20 (iF 

C13 

C14, C15 

TK 783, 33 nF 

C16, C17, C18 

TK 783, 47 nF 

PofovodkSe 
lOI, 102,103 

MH3212 

104 

UCY7406 

105,106.107 

MH7493 

108 

MH7474 

109 

MAA723 


T1 

BC177A 

T2 

BC313 

T3 

BC211 

T4 

KYS71 

T5 

KD605 

D1 ai D8 

GAZ51 

09 

LOI 701 

DIO 

U31101 

Oil, D12 
Ostatnf: 

0A9 

K 

konektor FRB TX 518 62 12 

KP-1 

konektor FRB TY 517 62 43 

Z/V 

pfepinaC ISOSTAT 
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a jeho Cinnost. Nenl-li prltomen signal 
ALE, nesepne se programovacf napitl 
ze stabilizatoru. Programovinl neuplni 
zasunutiho obvodu by vedlo k jeho 
poikozenl. 

Adresovi signify vznikaji na CltaCIch 
105, 106 a 107. Vstup kaskidy CitaCu 
a nulovinl se ovlidajl z 103. Toto reSenf 
je v]/hodni (pouze dva bity na ovlidinf) 
pfi adresovini, kteri jde vzestupni. 
Pokud bychom chtili nikdy Cist (pro- 
gramovat) jen urCiti adresy, muslme 
do programu zvyiujlclho adresu vloiit 
pomocni po&tadlo, kteri nastavfme na 
poiadovanou adresu a vstup dostane 
poCet impulsu, potfebny k sestave- 
nl iidni adresy. 

Vhodni Casovani signify poiadova- 
nych urovnl se Ndl pres 103 progra- 
mem. Pouze ovlidinl T2 a T3 je 
zabezpeCeno obvodovi, protoie jejich 
kolektory jsou u nikter^ch pamitl 
spojeny a pfi nesprivnim programu by 
mohlo dojft k jejich souCasnimu se- 
pnutl. To by vedlo (napr. u 2708) 
k vypadku +12 V a naruienf Cinnosti 
celiho mikropotltaCe. 


Tab. 2b. Nastaveni bitu 103 a 10101 pro nikteri typy pamitf. 


pamif bit 

b7 

b6 

b5 

b4 

b3 

b2 

bl 

bO 


2708 






PGM 

WE 

CE 

103 

blokovinf 

L 

X 

L 

L 

X 

L 

L 

L 


dtenf 

L 

L 

H 

fl 

X 

L 

L 

H 


programovinf 

H 

H 

H 

tl 

X 

tl 

H 

L 


2716 





CE 

Vpp 


OE 

103 

blokovinf 

L 

X 

L 

L 

L 

L 

L 

L 


Ctenf 

L 

L 

H 

II 

H 

L 

L 

H 


programovinf 

H 

H 

H 

tl 

tl 

H 

L 

L 


2732 





CE 


Vpp 

OE 

103 

blokovinf 

L 

X 

L 

L 

L 

X 

L 

X 


Ctenf 

L 

L 

H 

tl 

H 

X 

L 

H 


programovinf 

H 

H 

H 

tl 

It 

X 

H 

L 


PROM 

Uccl 




CS 


Ucc2 


103 

blokovinf 

H 

X 

L 

L 

L 

X 

L 

X 


Ctenf 

H 

H 

H 

tt 

H 

X 

L 

X 


programovinf 

H 

H 

H 

tl 

tl 

X 

H 

X 


8748 






EA 

PROG 

PROG 

103 







TO 

RES 

VDD 

10101 

zipis adresy 

H 

L 

H 

L 

X 

L 

L 

H 

103 


L 

L 

X 

X 

X 

H 

t 

L 

10101 

zipis dit 

H 

H 

H 

L 

X 

L 

L 

H 

103 

H 

H 

X 

X 

X 

H 

L 

L 

10101 

programovinf 

H 

H 

H 

tl 

X 

H 

H 

L 

103 


L 

L 

X 

X 

X 

H 

H 

H 

10101 

Ctenf 

H 

L 

H 

11 

X 

L 

L 

L 

103 


L 

L 

X 

X 

X 

L 

H 

L 

10101 


*5V 

A2 

A3 

A4 

AS 

A7 

A6 


15.16. 17,18 

10 

42 

11 

4 / 

12 

44 

13 

43 

14 

45 

-% 





u cc Y1 
Y2 

Y3 

B 

C 

D 

E 

V 


MH74166 


W 


3 x 2k2 


13/101 

13/102 

13/103 

12 %<pj\ 


Obr. 3. Dekoddr adres 


19. 20. S3. Si 


navrhnout ploini spoje na poCItaCi se 
systimem CAD, kde se price spojeni 
s nivrhem a tvorbou DPS vyrazni 
zkritl, je Casovi vyhodnijil pouzft 
univerzilnl desku. 

VSechny pamiti se mily puvodnfi 
pripojovat jako moduly do konektoru 
KP-1. Na desce v§ak nebyla vyuiita 
celi plocha a tak jsem pro nejvice 
pouilvani pamiti 2708, 2716 a 2732 
umlstil objlmky na zikladnl desku. Tim 
je moini zjednoduiit programitor 
(pracuje-li se jen s timito typy pamiti) 
tak, ie se neosadf konektor KP-1 



Celkovy vzhled a . 

vnitfnf uspofdd&n! \ 
programdtoru PGM-2 


PGM-2 byl sestaven na desce BDS-1. 
Navrhnout (dobfe) plo§n9 spoj pro 
hustotu souCistek a spoju, jaky je 
v programitoru, je price vyladujlcl 
mnoho Casu. Pokud nebude moini 
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u . u 


fin H 

m £■ 


+i 2 v 2L 


10XKA206 


8x KSY62B 


Obr. 4. Zapojenf modulu pro programovAnf PROM 


KY132/300 



R67 a t R74 
R75 
R76 


TR 191, 10 kCl 
TR191, 330 
vinuty 0,7 Q 


D59 

060. D61 
D62 


KYI32/300 

KA206 

QA9 


Ostatnl: 

KP-2 


TE31, 4.7 nF 
TK783, 33 nF 

konektor FRB 
TY 517 62 12 



Vzhfed modulu pro programovAnf 
PROM 


a propojky (nutn6 pro funkci progra- 
mov6nf) se provedou dr£tovymi spoj- 
kami podle zapojenf modulu EPROM. 

K z&kiadnf desce je zhotoven modul 
PROM pro pam6ti 74188, 74S287, 
74S571, modul EPROM s nutnymi 
propojkami pro programov&nf a modul 
mikropoCftaCe 8748. 


Programov6 vybavenl 


Udaje potfebn6 pro psani programu 
jsou v tab. 2. Programy byly ps&ny tak, 
aby nebyly del§f nei IkB a zajistily 
v§echny nutn6 operace s pamfitmi. 

Obvod 74188 je se svymi 256 bity 
pam6f nejmenSf, ale vyiaduje pom6rn4 
komplikovand programovAnf. (Viz vyvo- 
jovy diagram na str. 59). 


ProgramAtor PGM-2 byl nejprve 
ffzen SAPi-1 s deskou REM-1 (SRAM+ 
Mikromonitor). Pro desku DRAM 48 kB 
a Monitor V4.0 byl ffdicf program 
upraven. OvIAdAme jej podle tabulky 
sluieb — tab. 3. Programy se spouStdjf 
pffkazem G u Monitoru V 4.0 (u Mikro 
S). Po provedenf prfkazu se vypfSe 
udaj, ktery nAs informuje o vysledku. Je 
to adresa prvnf chyby prAvA provAdAnA 
operace. U kontroly Aistoty je to adresa 
prvnfho bajtu, kde nenf po2adovany 
obsah (u PROM a 8748 00H, u EPROM 
FF H). Pfi programovAnf se vypfAe prvnf 
adresa, kde nedoSlo k naprogramovAnf 
dat, u Ctenf prvnf adresa, kterA se jiz 
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2 k KYI30/300 


2»KA206 


Tab. 3a. Tabulka siuieb pro Monitor V4.0. 



Ctenf dat 

Kontroia 

distoty 

Programo- 

vinf 

1846 H 

1897 H 

1809 H 

1854 H 

18A6 H 

182A H 

1862 H 

18B2 H 

1838 H 

1870 H 

18BE H 

18F4H 

187C H 

18D9 H 

194C H 

1888 H 

18E5H 

1985 H 

19BEH 

18CDH 

1A05 H 
















ftidicf program Ize jednoduSe modifi- 
kovat s ohiedem na pevn€ ur£en6 
adresy dal 6tenl/programov4nl, ad rosy 
instrukcf IN/OUT i mi'sta, kam se ft'dici 
program uloii zmfinou direktiv v asem- 
blerovskdm programu. Tim Ize jedno- 
duSe prizpusobit PGM-2 pro jm4 poza- 
davky u SAPI 1, nebo i jiny Ffdicf 
mikropoCftafi, 


Zivir 


Programovacf zaflzem PGM-2 reSf 
programov£nf pam&tf technicky jedno- 
du§e a moduldrnl uspof4d£nl umoirtu- 
je jednoduchO rozSIfenl na nejruzn§j§l 
typy pamStl. 

Ke kaldOmu programltoru pamOti 
EPROM patff tak6 zarizeni pro mazdnl 
tfechto pamfitf. Pouiiva se ultrafialov6 
sv6Uo s vlnovou dOlkou 2537 A 
(Angstrdm). Zdroj svOtla must byt ve 
vzd&lenosti 25 mm od okOnka pamgti. 
Doba pro vyrnaz^nl je d£na typem 
vybojky; u pamfitl fy Intel je k vymazdnl 
zapotfebf energie 15 Ws/cm 2 . Pff- 
spdvek vznikl na podzim r. 1985. Ones 
je program6tor PGM-2 na deskdch 
s pioSnymi spoji a pracuje i pod ope- 
raCnfm systOmem CP/M s komfortnSj- 
51m programovym vybavenlm. 


Grafidd 

schema 

obshdMho 

programu 
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Ing. Lumir DvoKk 


Souvislosti a veMkosti fyzik&litfch hodnot soutAstek elektrick^ch obvodu, prfibAhy a zAvislosti 
napAtf a proudO ¥ nidi, to v$e je dohromady vAzAno zAkladnfmi matomabckymi vztahy. RJNHi by je znAt 
i ti „nejzarputileit“ praktikov*, protoie umoiftuji pochopH, co se v elektrickfrch obvodech d*je, prod 
se to dAje, a jak to imtteme zm&tou jednotltvfch soutAstf obvodu ovtivnit 
Proto fame zafadifi do toto rotenky i tak nezvykt? a neobvytde zpracovany pKspkrek, „Kapky 
malematiky v elektrotechnice". Neehf vim vSem posloulf k neustAIAmu opakovAnf a obnovovAni 
znalostf ttch zAkladrtfch zAkonitostf e tek trick frch obvodu, s kterymi pfichizite demi do styku. 

ZAkladnfm pojmem pfi popisu periodickych prOb&hu napdtf a proudu v elektrickych obvodech je 
goniometrickA Fourierova Pada. Platf, ie periodlckou funkci f(t)=f(t±2k7i), kde k je pfirozenA dfslo 
s periodou 2«, kterA je v intervalu od 0 do 2n jednozna&nA a konednA amiv tomto intervalu konedny 
podet nespojitostf, Ize rozvinout v konednou konvergentnf goniometrickou Fourierovu Padu: 

f(t) = a 0 +a 1 cos t ♦ bjsint *a 2 cos 2 t + b 2 Sin 2 t + 


2TT 


= 2V / 


f(t)dt 


J 


. +-a n cos nt ♦ bnsinnt 

2TT 

a n z -^r t f It) cos ktdt 


2 IT 


b n = ~/ f (t)sin kt dt 




Lichob&inikovy prOUk 


f(t) = 


4A ( sin<x 
2TT' f 


sinuit + 


sin 2 oi 


sin3u»t ♦ 


sin5oc 


sin5wt + . 


ObdASnfkovy prubAh: 


4A / 1 1 

f (t )= -jj-^sinwt +^-sin3wt + -g sin5wt * 


.... 4A [ cosojt cos 3wt cos5u>t f 
t,t,s TT ' 1 + 3 5 






Trojuhelnikovy prObAh: 

f(t)= 5 smart--~sir» 3 uit + -^sin5ut- . ) 

TI* * I 2 3* 5* ■ 
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fit) = ~; coscjt+-^cos3tL»t + -^cos 5u;t + 
TT 2 ' I 2 3 2 5 2 



ax A«c 2A / 1-coso. , 1-cos2oc ^ , 1-cos3a ^ . \ 

f * = ZTT TU '—i 2 — 005 p—cos2u»t* p—cos3wt + J 


Pilovitf prOMh: 


fit) = ^p(smwt +YSin 2 u»t + ^-sin3uit ♦ 



xfi> 2A / . 1 . „ 1 . „ 

fit) = ~ ^smcot ♦ — sm2u>t ♦ — sin3u»t * 


fit) = ^(sinwt sin2ut+-^sin3ut - 


Jednocestng usfn€rn€fiy stffdavy signal: 

fit) =-~ ( 1 + y cosojt --jcos2(jt + -^-cos4 wt - 


fit) =^-(l + ?cosut ♦ ~cos 2 <^t -^rcos4cjt + 
h ' 2 3 15 



Dvojcestni usmdrndny stfldavy signal: 

f (t) = (l4 c ° S 2 W t -4-cos4ujt -§-cos 6 u>t 

IT ' 3 15 35 


3A / 2 2 2 

fit) = — \ 1 -—cos 6 u»t -^jcos 12 wt ~ 3 ^cos 18 ut - 
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Usmftrftovacf filtry RC Usm$rftovacl filtry LC Dolnf propusti 


ttenek T 


z= tfv-jif 


,o ' 2Tmr 



LC = 2.5-~ 


Pa = Cinttet zvtndnf na vstupu fittru (10) 
p = Cinitel zvtnSnl pro mikrofon 0,001—0,0022 
pro nf zesilovafi 0,01—0,05 
pro konc. stupert 0,1—0,5 


> L X L T 

SjiCo C -** C -»» 

' 1 i 



’■■fW 

c-f W 

u>V? 

a 3000 Po 

R " C P 

_ 3000 Po 

L ' R P 

RC=3000-^ 

u * u "'ioto 

[ V; mA ; Q ] 

r 3000 \/Po" 
L ■ R V P 

RC=300o\/^- 

2 l 0 R 

U ‘ U ° 1000 




1500 Pq 
C P 
1 500 Po 



1500 /Po 


1 500 W Po 


RC = 1500 


-o P 



















Horn! propusti Filtrafcnl filAnky RC 


I ntegr at nl obvod 



T=RC 

u = u(l -e f ) 

u — okarr&itd hodnota napdtl pfi nabljenf 
U — veiikost napAJecfho napdtf 
x — £asov6 konstanta obvod u RC 



Integra&ii obvod 
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hvizda — trojdhelnfk Paralelnf Fazenf S6riov6 fazenl 


Trojdttnkovy fltftr RC 


u «t C jjR C MR 0 MR u y * st 


f ° " 2TIRCV6 

Uvyst _ 1 

U v ,t ' 29 



, .0=7X1_1_i— 

fd "V4C 2 Li Ci Li 2VC7L; 2TT 


f .\nzTX"_i_i_ ___ 

h V 4C 2 L, C,Li 2TTVc^U 2TT fd f. f h ~f 


U 2TTs 

L Zs _ 
2 * 2TT(f d +f h ) 


fs= 2TT\fLf; ' 

, - Zs 
1_ 27T f d fh 

, - z _ 

1-2 2TTs 


p- s _ 

1_ 2FZf d f h 

^ 2 2TTZs 


c ' = WzT 


S = f h - fd 
Zvst = Zyyst = 



c --!- » d J. 

2TTZf d f h ' 

Z«t = Zyy*t 


J_1_I_ 

fd fs fh T 




rezi s tory 


kondenzMory 


cfvky 


Ri R 2 


Li L 2 


R s =R^R 2 


Ri R 2 R 3 Rn 
R s = R, + R 2 + R 3 +....+ R n 


rezistory 



q Ri R 2 
“ R^R 2 


r 

s Ci+C 2 


oHI—«—II-II—o 

Ci C 2 C 3 c„ 

1 1.1 1.1 


kondenzdtory 


Cp = C^Cj 


Rp Ri R 2 R 3 


z tro i Ohe ini ku do hvfezdy 

1 r - Rl2 Rl3 

Rl3 ^ ^ ^ Rl2^ 10 Rl 2 + Rl3 + R 2 3 

o D R « R23 

- r~^1 - 20 Rif R 13 + R 23 

2 p Rl3 R23 

30 Rl/R« + R23 


l s = l 1 + l 2 




z hvfezdy do trofttiebtfku 


= Rto R 2o( 


J_ + J_ + 1 ] 
Rio R 20 R 30 


— Rl3 :R « R3II ( R 10 + R20" R30 l 


R 23 = R 2oR3o( R w + R 20 + R. 
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Na obAfkAch letoinl roAenky .'Mikroelektronika" vAs chceme seznAmit s tfm, jak to vypadato na ayatavAEJM *87 va 2cfAru 
n. S. Na II. a III. atranA obMky vkifte:($zAbAr do expozice SevaromoravakAho krajeQnapAjeci zdroj proantAnni zewkwraA 
R. Smejkala z Jihlavy(3) tff pAsmovou reproeoustavu ing. Z. NovAka za 2tfAru;4)expozici JihomoravskAho kraje{5)pfij{ma6 
pro amatArskA pAsma V. Zahradila z Ostf n. L.<8)atereovA2 ing. P. RusftAka z mezna<?) univerzAIni fcttafc A. Prokeie z Brna 
'llalfamimorickou Id AvesniciM.SfpazPtznA&modemymg. V. HavlaakoLz6. BudAfoyicodoaobniprofesionAMpoAftaA 
ISKRA ze S8SR (R) soubor uAebnfch pomficek pro etek tr ot ec h niku kolektivu SOU MH z KutnA Hory {fosoubor mAficfch 
pfistrojQ etrnActiletAhc A. Rodka z 0. Upy (uprostfed) jeAtA jeden zAbAr do axp o zi co Sav ar om orav ak Aho kraja ^ 
simulaAnl panel pro SAPI-1 — itfedif Apravna vody — kolektivu SPd Pfsek. 
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PRIPOJENf 

TISKAREN C2111 a C2112 

K OSOBNfMU POClTACl ZX SPECTRUM 


Ing. AH Kastner, CSc., ing. Pavel V6br 


S6riovA tiskaci mechanismy Consul typy 2111, 2112 jsou snad nejrozilfenAj- 
SW mozaikovymi bskAmami ye vypode ta i clmtf ed isci ch v CSSR. PH spdnm6 
MiiM maji osbf, dobFe Aitelny otisk a s formuWovfm zaNzenim DARO mohou 
tisknout na skttdany tabelaAnf papir bez kopie I s kopii. 

Osobni poAitaA Sinclair ZX Spectrum je u ids rovnAS vefmi hojni pouiivAn. 
Existuji pracev&iA, kde se stal p ra co yni m nAstrojem konstruktArO, nAvrfiAHl, 
architektO a jinych pracovnikfl vyvoje. PrAvA Jim |e urAen lento AlAnek, ktery 
Popisuje spofeni uvedenych prostfedkfl vfpodetni techniky a nAkterA aplikace 
i s upravami dostupnAho programovAtio vybavenL 


Popisovany adapter a zakladm tisko¬ 
vy program vychAzejf z feSem uvede- 
nAho v [1], Jde o tiskovy program 
nahrazujici puvodni tiskovou rutinu 
uiozenou v pevnA pamAti (ROM) po- 
AftaAe. DAie je v [1] popsAn adaptAr 
prenAAejtcf 7 bitu kaidAho znaku do 
sAriovAho tiskacfho mechanismu Con¬ 
sul 2111-03. AdaptAr ani program vSak 
nebyl vhodny vzhledem k zamyAlenym 
zpusobum jeho pouziti: 

— tisku znaku s diakritickymi znamAn- 
—ky na upravenA tiskArnA Consul 

2111-03 (nutny prenos v§ech 8 bitu 
znaku), 

— plynulAmu tisku na tiskArnA Consul 
2112, kterA nemA start/stop rezim, 

— automatickemu rozpoznAni typu tis- 
kAmy. 

Z tohoto duvodu byl adaptAr vyfeSen 
zcela novA, tak2e obstouH tiskAmy Con¬ 
sul 2111-03 a Consul 2112 bez uprav 
i s upravami. TakA tiskovy program byl 
pFepracovAn. Jeho varianta, vhodnA 
pro tisk plsmen s diakritickymi zna- 
mAnky byla zaAtenAna do textovAho 
editoru TASWORD, ktery byl rovnAi 
upraven tak, aby dovolil pofizovat 
a tisknout texty obsahujicl vAechna 
pfsmena malA i veHcA AeskA abecedy 
vfietne nAkterych grafickych znaku pro 
tvorbu tabulek a diagram u. ZAkladni 
varianta je urCena pro pouziti v jazyku 
BASIC a byla zafazena takA do „data- 
bAzovAho" programu VU-file. 

Popis adaptAru pro spojeni ZX- 
Spectrum s C2111, C2112 


ZAkladni AAsti adaptAru je, obdobnA 
jako v [1], stfAdaA 8 bitu typu MH 3212. 
Slouii pro uchovAni a vysilAni dat pro 
sAriovy tiskaci mechanismus. Vzhle¬ 
dem k tomu, te k prenosu dat je vyuiito 
vAech 8 bitu stfAdaAe, nenf moino pro 
vytvofeni signAlu SC (fizeni prenosu 
dat z adaptAru — viz tabulka 1) pou2it 
stejny zpusob, jako v [1J. Pro tento uAel 
je uzit pomocny klopny obvod, ktery je 
souAAsti strAdaAe MH 3212. Vhodnym 
zapojenim bylo dosazeno, ze bez- 
prostrednA po kazdAm zApisu novych 
dat do stFAdaAe je nastaven pomocny 
klopny obvod, jeho2 stav se po ukonAe- 


nl zApisu objevi na vystupu IT strAdaAe. 
NapAti z tohoto vystupu se primo 
vyuiivA jako signAI SC. Pomocny klop¬ 
ny obvod je nulovAn tylem signAlu AC 
— viz tabulka 1. 

Zbyvajicf AAst adaptAru je navriena 
zcela novA a je tvorena pamAti typu MH 
74S287 nebo ekvivalentem, napf. so- 
vAtskym obvodem KR 556 RT4. Obsah 
tAto pamAti musi vyhovovat tAmto lo- 
gickym rovnictm: 

Y1=A + B + C+ D + E + F 

Y2 = A + B + C+ D + E + G 

Y3 = A + B + C+ B + E + H 

Y4 = A + B + C + D + E 

kde: A, B, C, D, E, F, G, H jsou adresovA 
vstupy pamAti, 

Y1, Y2, Y3, Y4 jsou informaAni vystupy 
pamAti (musi byt s otevFenym koiekto- 
rem). 

Obsah pamAti zajiSfuje, te adaptAr 
pracuje jako vstup-vystupni brAna, 
v jejii adrese musi byt AO = H, A1=L 
a A3=H. Tomuto poiadavku vyhovuje 
adresa 9, anebo lApe adresa 253, kterA 
je v systemu ZX-Spectrum vyhraiena 
pro tiskAmu. Pro adresovAni adaptAru 
Ize vyuiit i adresniho bitu C pamAti 
PROM, na ktery je v tomto provedeni 
pripojen signAI M1 ffdici sbArnice. 
Tento signAI mAl puvodnA slouiit 
k rozliAeni operace vstup-vystup od 
cyklu pFeruAenf, pri kterAm signAI 
IORQ, stejnA jako pFi vstup/vystup 
operacich, nabyva urovnA L. Podle 
stavu adres sbArnice v okamiiku pre- 
ruAeni potom hrozi nebezpeAi, te 
vstupnA vystupni kanAI reaguje na 
preruAeni jako na vstupnA vystupni 
operaci. Vzhledem k du sled nAmu pou- 
2iti obou signAlu RD i WR neni v&ak 
vyuiitf signAlu Ml nutnA a Ize tedy 
prisluAny adresovy vstup pamAti PROM 
pouiit pro adresovAni adaptAru (nej- 
lApe vyjmutim kontaktniho pera sbArni- 
covAho konektoru adaptAru a drAtovou 
propojku na ploAnAm spoji adaptAru). 

Vstupni brAna, kterA vznikla napro- 
gramovAnim pamAti PROM, umoiftuje 
prenos tri bitu informace ze sAriovAho 
tiskaciho mechanismu. Z toho je jeden 
bit pouiit k prenosu signAlu AC do 
poAitaAe. Po provedeni instrukce IN se 
tato informace objevi v bitu D7. DalSi bit 


TabaRat 1: Zapojenf a signdly konektoru Consul 
2111 , 2112 



Typ STM: + — pouze Consul 2111 
* — pouze Consul 2112 


(D1) je pouHt k pFenosu signAlu AO 
(pfipravenost tiskArny k provozu). 
Zbyvajict bit (D4) nemA pevnA urAenf 
a Ize jej pou2it libovolnA napF. 
k pFenosu signAlu AI-2 (provAdAni 
FAdku — viz tabulka 1), coi umoihuje 
poAitat skuteAny poAet FAdku, ale neni 
vylouAen ani pFenos jinAho signAlu 
(pFepojenim na konektoru k tiskArnA). 
SchAma adaptAru je na obr. 1. 

AdaptAr je umistAn na destiAce 
s oboustrannymi ploSnymi spoji o roz- 
mArech 43x73 mm. Do otvoru v des- 
ce je ze strany spoju zasunut 
a zapAjen konektor typu WK 465 80 
zkrAceny na 28 pAru kontaktu. Typ 
konektoru je nutno dodrzet, nebof 
velmi podobny konektor WK 180 18 mA 
ponAkud odiiAnou rozteA kontaktu. Ne- 
pou2itA kontaktnf pera jsou vyjmuta, 
takie kontaktnf pera zOstAvajf na tAchto 
pozicich: 

A3, A6, A7, A9, A10, All, A12, A21, 
A22, A23, A24, 

B3, B6, B7, B8, B9, B10, B11, B12, 
B17, B18, B19, B24. 

Konektor je podloien vhodnou di- 
stanAni podloikou, napF. destiAkou 
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Odr. 2b. Roztoieni soudistek na desce s ploSnymi spoji Obr. 1. Interfejs ZXSpectrum — Consul 2111-03/2112 

W508 interfejsu ZX Spectrum — Consul 



Obr. 2a. Obrazec ploSnycb spoju interfefsu ZX Spectrum — Consul na desce W508 


tlouSfky zhruba 3mm s otvory pro 
vyvody kontaktnfch per, a zasunut na 
doraz. Pfed zapdjenfm je vhodnd kon- 
taktnf pera ohnout k destiCce pro 
mechanickd zpevndnf. Pro spojeni 
s tiskdrnou je pouiit plochy mnohoiito- 
v* vodiC PNLY 20x0,15, z ndhoi je 
pouiito 17 vodiC u. 061 ka spojovacfho 
vodiCe nesmf pfesdhnout 3 m. VodiC je 
upevnCn dvojfm protaienim poddinym 
otvorem v hornf C6sti destiCky a je 
zakonCen konektorem Consul* 

Z4kladni varianta tiskovdbo pro- 
gramu 


Zdkiadnf tiskovy program je urCen 
pro tisk znakO k6du ASCII modifikace 
Spectrum vCetnd tisku klfCovych alov 
jazyka BASIC. Program Ize vyuilt k ti¬ 
sku pffkazy LPRINT (PRINT #3) 
a LUST. Nelze tisknout obsah obrazov- 
ky (pflkaz COPY). Znakovy repertodr 
tiskdren Consul se IISI od k6du ASCII- 
Spectrum v tSchto znacfch: 

— „dolar“ (24h) je nahrazen mdnovym 
znakem,F“, 

— ,Jibra“ (60h) znakem 
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— „3lpka vzhQru" (5Eh) znakem 
-~j,vlnovka“ (7Eh) znakem nadtrzenf 

M 

— ..copyright' (7Fh) je nahrazen meze- 
rou. 

V k6du ASCI I-Spectrum je nCkolik 
sluiebnlch znaku, kterd majf pfi tisku 
tento vyznam: 

— 06h (Cdrka v PRINT) — interpretuje 
se jako tabelace na nejbliiSf zardiku 

— sloupce 1, 17, 33, 49,.. 

— 09h (BACKSPACE) — zpCt o znak 
(jen C2111), 

— OAh (CHR$ 10) — fddkovdnf (jen 
C2111), 

— OBh (CHR$ 11) — vertikdlnf tabelace 
(jen s formuldfovym zarfzenfm DARO 
1160), 

— OCh (CHR$ 12) — posun na zaC&tek 
novd strdnky, 

— ODh (ENTER nebo apostrof v PRINT) 
— novy fddek, 

— 12h, 13h, 14h (FLASH 1/0, BRIGHT 
1/0, INVERSE 1/0) — zrrtCna barvy (jen 
C2111) 1-Cervend, O-Cernd, 

— 17h (TAB n) — posun na sloupec 
urCendbo Cfsla, 

— iBh (CHR$ 27) — zpdtny fddek (jen 
C2111 bez DARO 1160). 


Nenl vhodnfe tisknout texty s ukazateli 
AT na tiskdrnd. Tento atribut tiskovy 
program zceta ignoruje, prdvd tak jako 
atributy barev. KCdy od OOh do IFh 


neuvedend v tomto vyCtu jsou nahraze- 
ny znakem Kddy od 80h do A4h 
jsou nahrazeny znakem 
Tiskovy program obsahuje Cast ini- 
cializaCnf a cast vykonnou. InicializaCnl 
Cast nastavf zpusob strankovanf, poCty 
rddku na strdnce a znaku na f&dku, 
nuluje poCItadla a pfi prvntm spuCtdni 
urCi typ tiskdrny podle ddlky odezvy na 
znak ..ndvrat vozu“. Zpusob stranko¬ 
vanf si urCf uiivatel podle toho, zda 
hodia tisknout na jednotlivd listy nebo 
rolovany Ci sklddany tabelaCnf papfr 
a md-li tiskarnu opatfenou formuldfo¬ 
vym zaffzenfm DARO. 

Inicializace se spustl pffkazem jazyka 
BASIC 

RANDOMIZE USR a+x, 

kde: a je poCateCni adresa programu (v 
zdkladnf verzi 64200), 
x je 0, md-li program poCftat f&dky 
a strdnkovat, 50, strdnkuje-ii piiotnf 
pdska zaffzenf DAR01160,100, bude-li 
se tisknout na jednotlivd listy. 

PoCet znakO na fddku Ize zadat pffka¬ 
zem 

POKE a+10,n (standard nd n=128). 
Pokud ma program poCitat fddky (x je 
0 nebo 1(H)), je poCet fddku na strance 
moino zmdnit pffkazem 
POKE a+11,n (standardnd n=68). 

PoCet fddku vynechdvanych na konci 
strdnky (pfeskoCenf pfehybu) se dd 
zmdnit pffkazem 
POKE 84-12,11 (standardnd n=4). 
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Postedni dvA hodnoty dAvajf v souAtu 
ceikovy poAet rAdku na strAnce (nej- 
AastAji 72), Mery musf byt pfi zmAnA 
tJodrien. Po zmAnA kterAkoli z tAchto 
hodnot je nutnA novA inicializace. Nenf- 
li tlskama pfi iniciaiizaci zapnuta, ozve 
se akusticky signal, ktery trvA tak 
dlouho, dokud uiivatel tiskArnu neza- 
pne nebo dokud nestiskne BREAK. 

VykonnA AAst programu interpretuje 
kaidy znak a tisknutelrte znaky uklAdA 
do vyrovnAvaci pamAti. Po pffchodu 
znaku s kddovou kombinaci ODh se 
obsah tAto pamAti vytiskne na jeden 
FAdek. Pfi tisku se vynechAvajf pravo- 
strannA mezery. Uvedeny zpOsob tisku 
dovotuje poift Consul 2112 a navfc 
zkracuje dobu tisku. 

Znak OCh (novA strAnka) se interpre¬ 
tuje okamiitA. Je-li nastaven reiim 
tisku na jednotlive listy, nebo pfijde-li 
tento znak, je po odpoAftAni stanove- 
nAho poAtu rAdkO na stance vydAn 
akusticky signal, tisk se zastavi 
a operator mute vymAnit list papiru 
v tiskArnA. Podrienfm BREAK Ize navfc 
program zastavlt na konci kaidAho 
FAdku. V obou pffpadech se ozve 
zvukovy signal, po nAmi mA uiivatel 
tyto moinosti pokraCovAnf: 

— klAvesou „Z“ zastavi tisk s nAvratem 
do systemu BASIC a s hlASenfm „D 
BREAK — CONT repeats". 

— klAvesou „C“ pokraCuje v tisku 
dalAfm FAdkem, 

— klAvesou „l“ provede iniciaiizaci 
poAitadel, program pfedpoklAdA tisk 
od zaAAtku novA strAnky, nutno jeStA 
stisknout klAvesu „C“. 

Tiskovy program ve svA zAkladni 
variants nepouifvA ..PRINT buffer" na 
adrese 5B00h. VyrovnAvaci pamAf je 
umfstAna tesnA za vAemi instrukcemi 
programu a s jeji dAlkou je tfeba 
poAftat. Aby byla oblast ..PRINT buffer" 
vyuiita, Ize zmAnit posledni fAdek pro¬ 
gramu na 

Buf EQU # 5B00 


Zdrojovy program je urden pro pfe- 
kladad GENS3 (Hisoft). 


Pouiiti tiskov^ho 
programu v programu 
VU-file 


Program VU-FILE pracuje se soubo- 
ry zAznamu kartotAAnfho charakteru. 
JednotiivA zAznamy Ize pofizovat, pfi- 
dAvat, mAnit a ruAit FormAty zobrazeni 
a tisku Ize podle potfeby definovat. Do 
programu VU-FILE byl pfidAn tiskovy 
program, ktery se inicializuje po zave- 
denf kompiexu programu do operadni 
pamAti. 

Ke svA Ainnosti vyuiivA tato variants 
programu systemovou vyrovnAvaci pa- 
mAf tisku na adrese 5B00h. 

Upravy textovAho editoru 
Tasword 

V repertoAru znaku upravenA tiskAr¬ 
ny Consul 2111-03 jsou malA i velkA 
pfsmena AeskA abecedy (s diakritic- 
kymi znamAnky), znaky pro tvorbu 
tabulek a rAmeAku a speciAInf znaky. 
CeskA variants editoru textu — (TAS- 
WORD/Cs) u nAs dostupnA vSak obsa- 


huje poiize 14 pismen malA AeskA 
abecedy s diakritickymi znamAnky 
a znak pro hAAek za pfsmenem. Citem 
uprav programs TASWORD bylo: 

— umoinit tisk cel A AeskA a slovenskA 
abecedy i pfehlAsek, 

— umoinit tisk rAmeAku a tabulek, 

— vklAdat uvedenA znaky z klAvesnice 
bez pouiiti grafiky, 

— doplnit generAtor uzkych i Sirokych 
znaku pro zobrazeni. 

Nejprve byla vytvofena speciAInf va¬ 
riants tiskovAho programu s urAitymi 
zvtAAtnostmi. Hlavnf zmAna spoAfvA 
v tom, ie do tiskAmy jsou posilAny 
vAechny k6dovA kombinace 20h ai 7Fh 
a AOh ai FFh (a nAkterA dalSf). Nedo- 
chAzf ke konverzi k6d0 vAtAfch nei A4h 
na kliAovA slova jazyka BASIC. Pro¬ 
gram nepoAftA s pffchodem tiskovych 
atributO jazyka BASIC s vyjimkou tabu- 
lAtoru a zmAn barvy, akceptuje vSak 
fldici k6dy pro posun formulAfe. Pfi 
tisku na C2112 pfevAdf pfsmena 
s diakritickymi znamAnky na odpovfda- 
jfcf pfsmena bez nich. 

Ve strojovA AAsti programu TAS¬ 
WORD byla nejprve zmAnAna rutina 
pro zobrazenf uzkych pfsmen, coi 
dovolilo zmenAit rozsah generAtoru 
znaku na polovinu a doplnit obrazy 
potfebnych pfsmen AeskA abecedy 
a rAmeAkovych znaku v generAtoru 
uzkych znakO a pfsmen AeskA abecedy 
v generAtoru Airokych znaku. DAle byly 
obnoveny obrazy pOvodnfch grafickych 
znaku. 

VklAdAnf dopinAnych znaku z klAves¬ 
nice je feSeno dvojfm zpusobem. Pfs¬ 
mena s diakritickymi znamAnky vyia- 
dujf obdobny postup jako na psacfm 
stroji, tedy nejprve zvolit znamAnko, 
pak dopsat pfsmeno bez znamAnka. 
ZnamAnko se volf jednou ze Atyf „ne- 
smyslnych" kombinaci klAves ENTER 
a SPACE a obAma klAvesami SHIFT. 
NavofenA znamAnko se zobrazf na 
pozici kurzoru, ktery se neposunuje. 
Nynf je dalSf vloieny znak testovAn 
tabulkou pfsmen pfipustnych s tfmto 
znamAnkem. Je-li pfsmeno v tabulce 
obsaieno, generuje se kdd pfsmene 
s diakritickym znamAnkem, jinak se 
volba znamAnka ruAi a pfsmeno se do 
textu zaznamenA beze zmAny. 

Krouiek na „0“ se volf jako hAAek. 

GrafickA znaky pro tabulky 
a rAmeAky s ostrymi nebo kulatymi 
rohy se generujf v rozAffenAm reiimu 
TASWORDu po stisku klAves 1 ai 8 sa- 
motnych, nebo s klAvesou SYMBOL 
SHIFT, cefkem tedy 16 znakO. 

Texty pofizovanA puvodnf Aeskou 
verzf programu TASWORD nejsou po 
zavedenf novou verzf AitelnA. Proto byla 
vytvofena konverznf rutina, kterou Ize 
vyvolat po funkcfch LOAD/MERGE. 
Znaky odpovfdajfcf grafickym symbo- 
lum jsou zmAnAny na pffsiuAnA pfsme¬ 
na AeskA abecedy v k6du ASCII/Cs. 

V AAsti programu TASWORD, psanA 
v jazyku BASIC, byly provedeny rovnAi 
nAkterA upravy. Po stisknutf ..STOP" 
vystupuje strojovy program do AAsti 
BASIC a zobrazf se pfehled moinosti. 
Jestliie si uiivatel zvolf tisk textu, 
dotAie se program na rozteA fAdkQ, 
Afslo prvnfho a poslednfho tiAtAnAho 
fAdku a zpOsob strAnkovAnf. PrAzdnA 
odpovAcT na poslednf dotaz se povaiu- 


je za ANO, tedy strAnkovAnf pilotnf 
pAskou formutAfovAho zaffzenf DARO. 
Je-li zadAno N (NE), pak se nastavf 
inicializace poAitAnfm fAdku. NAsleduje 
posledni upozomAni pfed tiskem, ie 
mA byt nastaven zaAAtek strAnky. Pak 
je teprve provedena inicializace tisko¬ 
vAho programu. Nenf-li tiskArna pfipra- 
vena k tisku, je na obrazovku vypsAna 
zprAva a program AekA na ENTER. Pak 
se inicializace opakuje. 


BAhem tisku Ize program pferuAit dvo¬ 
jfm zpusobem. BREAK zastavf vlastnf 
tiskovy program; Ize nulovat poAitadta 
(klAvesa I) a pokraAovat (klAvesa C). 
nebo jen pokraAovat Zastavit tisk tfmto 
zpusobem nelze. K tomu je nutno 
piodriet klAvesu Q. Oba druhy pferuAe- 
nf uAinkujf ai po dotisknutf fAdku; do tA 
doby je nutno zvolenou klAvesu 
(BREAK nebo Q) driet. 

Jednou z moinostf programu TAS¬ 
WORD je definice grafickych znakO 
a k6d0 ffdfcfch funkci tiskArny. Po 
zvolenf tAto funkce se zobrazf souAasnA 
interpretace grafickych znakO s kAdy 
128 ai 143. Kaidy z tAchto znakO mOie 
byt vyslAn do tiskArny jako posloupnost 
ai Atyf k6du pro vykonAnf nAkterA ffdicf 
funkce. Napffklad zmAna barvy pro 
tiskovy program se kAduje jako 18,1 
— AervenA, 18,0 — AernA, novA strAnka 
jako 12 (Afsla jsou dekadickA). 

Po ukonAenf tAchto definic Ize jeAtA 
zadat vAeobecrte ffdicf kAdy pro tisk. 
NulovA hodnota (kromA kAdu 4) zna- 
menA, ie kAd se nevysflA. 

KAd 1 — pouiil by se u tiskAren. kde 
kAdu ffdicf funkce musf pfedchAzet 
vidy stejny znak — ESCAPE. TiskArny 
C2111, C2112 jej nepouifvajf, 

KAd 2 — kAd zahAjenf tisku; pro 
tisk Amu Consul nemA vyznam, 

KAd 3 — kAd ukonAenf tisku; pro 
tiskArny Consul nemA vyznam, 

KAd 4 — je to adresa inicializaAnf rutiny 
tisku (dekadicky) — nesmf se zmAnitf 

NAsledujfcf kAdy se vysflajf tiskAmA na 
konci kaidAho fAdku; 
riAvrat vozu (CR) — pro obA tiskArny 
Consul a tiskovy program zastupuje 
znak „novy fAdek"; 

novy fAdek (LF) — ponechat nulu (mAI 
by vyznam pro dAlnopis). 

Poslednf udaj se tykA odsazenf tiAtA¬ 
nAho textu doprava. Protoie vyrov- 
nAvacf pamAf fAdku v tiskovAm progra¬ 
mu mA kapacitu jen 80 znaku, fAdek 
textu mA 64 znakO, je moino uvAst 
nejvySe 16. 

Upravy mozaikovych tiskAren 
C2111-03, C2112 

TiskArnu Consul 2111-03 Ize upravit 
pro tisk pfsmen AeskA abecedy podle 
2N 21/84b, jehoi sprAvcem je Doprav- 
nf podnik mAsta Brna. Oprava je po- 
mArnA sioiitA a pfedpoklAdA dodAvku 
tiskacf hlavy obsahujfcf 11 magnetu 
a jehel od vyrobce Zbrojovky Brno, 

k. p. Oprava pfedstavuje souhrn tAchto 
dflAfch operacf; 

l. VymAna a nastavenf novA tiskaci 
hlavy. 




2. Doosazenf vykonovych stuprtu jehel, 
10 a 11. 

3. Doptn§nf desky ochran obvody pro 
jehly 10 a 11. 

4. Doplngni nezbytnych ovijenych spoju 
v ro§tu. 

5. Vymfena pam&ti PROM v gener&toru 
znaku. 

Takto upravenou tisk&rnu C2111 -03 Ize 
vyuzfvat jen programem TASWORD. 
Pro z&kladni verzi tiskov6ho programu 
a pro pouzitf tisku programem VU-F1LE 
nenf uprava potrebng. 

Tiskctrnu Consul 2112 Ize upravit 
pomfirng snadno. Pro tisk mafych pls- 


men latinskg abecedy staCi doplnit tfi 
pam&ti PROM do desky generfttoru 
znaku (deska 6-140.316, pozice 32 die 
[2] — obvod 140.124, pozice 33 
— 140.125 a pozice 35 — 140.127). 
Tyto pam&ti jsou standardng osazo- 
Vciny do generdtoru C2111. Ddle je 
nutno zmdnit vyznam sign&lu SI-9, aby 
tisk&rna nekontrolovala sprdvnost pri- 
jatych znaku paritou. Proto je nutno 
pfepojit na desce 1 (vstupni obvody, viz 
[2]) propojku PR2 z polohy C do polohy 
D (vykres desky 140.201 popr. 
140.301). Po tSchto uprav&ch neni tisk 
je§t6 bezvadny, protoie C2112 m£ jen 
8-jehlovou tiskaci hlavu, takie spodni 
body pismen j, y, g, p a q se netisknou. 


Pro dokonalejSi tisk by bylo nutno 
osadit 9-jehlovou tiskaci hlavu (b£2ny 
n&hradni dil) a postupovat obdobnS 
jako pfi upravfe C2111-03. 
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Vypis obslu2n6ho programu 


consul 211.1 - tisk 

, 2© *H consul 211.1 - tisk 

3© /Ekvivalence 
40 i 


FAC8 

50 Zac 

EQU 

64200 


3CC5 

60 PRruta 

EQU 

#5CC5 

iadr.tisk.rutiny kanalu 1 

©9F4 

70 PR-OUT 

EQU 

•09F4 

>rut.pro klic.slova 

03B5 

80 BEEPER 

EQU 

#03B5 

-piskaci rutina 

1F54 

90 BR-KEV 

EQU 

#1F54 

,test na BREAK 


10© *E 





110 ;Inicializacc programu 


120 > 




FAC8 

130 

ORG 

Zac 


FACS 

140 las 

LD 

HL,indas 

; inic 

FACB 

150 

LD 

<HL>,401 

i aut.str. 

FACD 

160 

JR 

Init 

;prsskok 

FAD2 

170 

ORG 

Ias+10 


FAD2 

180 znr 

DEFB 

128 

-pocet zn./rad. 

FAD3 

190 rds 

DEFB 

68 , 

pocet radku/str. 

FAD4 

206 rdp 

DEFB 

4 

>pocet radku pres prekiyb 

FAFA 

210 

ORG 

Ias+5© 



220 *E 




FAFA 

23© Ips 

LD 

HL,indas 

> inic . strankovam 

FAFD 

240 

LD 

(HL >,#02 

-pilotni paskou 

FAFF 

250 

JR 

Init 

; —> 

FB2C 

26© 

ORG 

Ias+100 



270 *E 




FB2C 

280 Irs 

LD 

HL-indas 

; inic . rueniho 

FB2F 

290 

LD 

(HL),400 

, strankovaru 


300 *E 




FB31 

310 Init 

LD 

HL,Tisk ; 

zamena adr 

FB34 

320 

LD 

(PRruta)- 

HL >PRINT-rutiny kanalu 

FB37 

330 

LD 

HL, zr.po c 

-nastav. 

FB3A 

340 

LD 

A,#01 ,1 

znak na radku 

FB3C 

350 

LD 

(HL),A 


FB3D 

360 

INC 

HL 


FB3E 

370 

INC 

HL 


FB3F 

380 

LD 

(HL),A ,lradek na strancs 

FB40 

39© 

DEC 

HL 


FB41 

400 

LD 

A. (znr) . 

. pocet zn/rad 

FB44 

410 

INC 

A 

i+1 

FB45 

420 

LD 

(HL).A 


FB46 

430 

INC 

HL 


FB47 

440 

INC 

HL 


FB48 

45© 

LD 

A, (rds) . 

i pocet rad/str 

FB4B 

460 

INC 

A 

;+l 

FB4C 

470 

LD 

(HL).A 


FB40 

48© 

LD 

HL.Buf 

iinit pozici 

FB5© 

49© 

LD 

(pozbuf), 

.HL ;v bufferu 

FB33 

500 

LD 

(pozm).HL >pozics nsMztry ♦ 1 

FB56 

510 

LD 

HL,typeon >A(typ C211z> 

FB39 

320 

SUB 

A 


FB5A 

530 

CP 

(HL) iurcsn 7 

FB5B 

54© 

RET 

NZ > arm . . 

FB5C 

550 tonl 

IN 

A,(#09) 

,cti 

FB5E 

560 

BIT 

6,A 

;plati ? 

FB60 

570 

JR 

Z, tonl 

;ne 

FB62 

580 

BIT 

1, A 


FB64 

590 

JR 

Z,or>lins 


FB66 

600 

PUSH 

HL 


FB67 

610 

LD 

HL,#03E3 


FB6A 

620 

LD 

DE,#0258 


FB6D 

630 

CALL 

BEEPER 

;zvuk 

FB70 

640 

CALL 

BR-KEY 

,test BREAK 

C B73' 

650 

POP 

HL 


FB74 

660 

JR 

C, tonl 

>ne 

FB76 

670 

RET 



FB77 

680 on1ins 

DI 



FB78 

690 

LD 

B,4 


FB7A 

700 cykm 

LD 

A,#20 iMZtra 

FB7C 

710 

CALL 

T iskzn 


FB7F 

720 

DJNZ 

cykm 

;4 x 

C B81 

730 

LD 

B,2 


C B33 

740 cyknv 

LD 

A/#OD ;navrat voziku 


750 

CALL 

Tiskzn 


C B8B 

760 

DJNZ 

cyknv 

,2 x 

FB8A 

770 

LD 

3-12 


FS3C 

780 vr.c 

PUSH 

BC i 12 

x ZOO 

FB80 

790 

LD 

B, 200 


ct>qr 

800 

DJNZ 

v ; poci 

kej 

FB91 

310 

POP 

EC 



70 
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FB92 

820 


DJNZ 

vne 

cp94 

S30 


IN 

A, < #0'v 5 

FB96 

340 


217 

6.A -piati 

FP98 

850 


•JP 

Z-Rteat ,rie 

FR9A 

860 


BIT 

7,A -ready T 

FP9C 

870 


JR 

E, jeto 11 -,ie 

FB9E 

880 


LD 

A,2 ,02112 

FBAO 

890 


JR 

Cspol 

C BA2 

900 

jetoll 

LD 

A, 1 ,02111 

FBA4 

910 

Cspol 

LD 

(HL) ,A ju 1OZ 

FBA5 

920 


El 


* r BA6 

930 


R£T 

,navrat 


940 

*c 




950 

; Proffer 

■re 



960 




FBA7 

970 

zrjpoc 

D£r£ 

#0C -pucitadio znaru na raoku 

FBA3 

980 

zr "ad 

DEFB 

#00 -pocet znaKU na radku * 1 

FBA9 

990 

radpoc 

DEFB 

#00 ;p.ocitaJlo ,ad*u na str. 

F9AA 

1000 

radstr 

DEro 

#00 ;pocet radeu era sir. 

FBAB 

1010 

pozTAB 

DEr Zr 

#S0 -nova pozice TAB 

FBAC 

1020 

indas 

DEF3 

#00 ,aut.slranKOvani - 1 

FBAD 

1030 

typCon 

DEFB 

#00 -typ C211x 

FP-AE 

1040 

pozbuf 

DEFW 

0 ipozice v ouft'eru 

FBBO 

1050 

pozm 

DEFW 

0 ,pozice posi nemezery-i-l 


1060 

*E 




1070 

;Hlavni prog. am 


1080 

- 



FBB2 

1090 

risk 

LD 

HL, IGN 

FBB5 

1100 


DEC 

<HL> -ignorovai ? 

FBB6 

1110 


RET 

NZ j arm 

FBB7 

1120 


INC 

(HL) 

=■868 

1130 


LD 

HL,typCon 

FBBB 

1140 


LD 

C, (,-iL) i id. Consu 1 u 

FBBC 

1150 


CP 

#A5 ,k1ic.siovo ? 

FBBE 

1160 


J F 

NC,PR-OUT ,ano.. 

FBC1 

1170 


CP 

#80 ;znak y #80-#A4 ? 

FBC3 

1180 


JR 

NC,XS0-A4 ,ano.. 

FBC5 

1190 


CP 

#20 ,tisknuteine ? 

FBC? 

1200 


JR 

NC,TiZri -ano. . 

FBC9 

1210 


CP 

#06 ;carka v PRINT ? 

FBCB 

1220 


JP 

Z,PrCom ;ano.. 

FBCE 

1230 


CP 

#09 ;posun zpet 1 

FBDO 

1240 


JR 

2,Kzpet ,ano 

FBD2 

1250 


BIT 

1,C a 02112 ? 

FBD4 

1260 


JR 

NZ,c2a i ano 

FBD6 

1270 


CP 

#0B ;vert.tabelace ? 

FBD8 

1280 


JR 

Z,TiZn -ano 

FBDA 

1290 

c2a 

CP 

#0C ,Page? 

S5 

CD 

U. 

1300 


JP 

Z,Kpage -ario. . 

FBDF 

1310 


CP 

#OD -ENTER ? 

FBE1 

1320 


JR 

Z, Kenter ,ano 

FBE3 

1330 


CP 

#10 ;nepouzite kody ? 

FBE5 

1340 


JR 

C,Knetis -ano.. 

FBE7 

1350 


BIT 

1,C ,02112 ? 

FBE9 

1360 


JR 

NZ,c2b ,ano 

FBEB 

1370 


CP 

#1B ,ESC-zpet.radek? 

FBED 

1380 


JR 

Z, Ti Zri > ano 

FBEF 

1390 


CP 

*12 ;< FLASH ? 

FBF1 

1400 


JP 

C,At r1 > ano. .INK a PAPER 

FBF4 

1410 


CP 

#15 ,< OVER ? 

FBF6 

1420 


JP 

C,Atr2 rano FLASH-BRIGHT,INVERSE 

FBF9 

1430 

c2b 

CP 

#16 ; < AI ? 

FBFB 

1440 


JP 

C,Atrl -ano. OVER 

FBFE 

1450 


JP 

Z-AT ;16—AT 

FC01 

1460 


CP 

#18 ;< #18 ? 

FC03 

1470 


JP 

Z-TA8 ;ano..TAB 

FC06 

148© 

1490 

*E 

JR 

Knetis ;nepouzite.."?“ 

FC08 

1500 

Kenter 

LD 

HL,znpoc ;ne...radkuj a navrat 

FC08 

151© 


JR 

Nrad 

FC0D 

152© 

Kzpet 

LD 

A,#©8 ;zpet 

FCOF 

153© 


BIT 

1,C >021127 

FC11 

154© 


RET 

NZ >ano-> 

FC12 

1550 


JR 

TiZn ;—> 

FC14 

156© 

Knetis 

CP 

#0© -NULL 7 

FC16 

1570 


RET 

Z >ar>o. . 

FC17 

1580 


i_D 

A,#3F ,otazmk 

FC19 

1590 


JR 

T i Zr, , — ✓ 

FC1B 

1600 

K30-A4 

LD 

A,#2E >tec>. a 

FC1D 

1610 

T iZn 

CALL 

Dobufr ,—> tisk 

FC20 

1620 


LD 

H^-ZApOC 

FC23 

1630 


LD 

A,(HL) 

FC24 

1640 


INC 

A >zvys poc.zn/rad 

FC25 

1650 


LD 

(HL) , A 

FC26 

166© 


INC 

HL 

FC27 

1670 


CP 

(Hl> -konec racku : 

FC2S 

1680 


RET 

NZ - ne... 

FC29 

169© 


DEC 

HL 




FC2A 

170G Nrad 

LD 

A/#0i ipoc.zn.:=1 

FCBC 

2560 


JR 

PisAdr 

iobnov atr. 

FC2C 

1/10 

LO 

<HL> <A 


FCBE 

257© 

TAB 

LO 

HL <T_1 iadr.rout. 

FC2D 

1720 

INC 

HL 

- 

FCC1 

258© 

PisAdr 

LO 

(Pfiruta). 

HL 

FC2E 

1730 

INC 

HL 


FCC4 

259© 


RET 

i—> 


FC2F 

1740 

to 

A,(HL) 


FCC5 

260© 

T_1 

LO 

HL.Tisk 

i obrtov adr . rout. 

FC30 

1730 

INC 

A i zvy* poc.rad/str. 

Fcce 

2610 


LO 

(PRruta). 

HL 

FC31 

1760 

to 

(HL)-A 


FCCB 

262© 


LD 

HL.ICN 

. icmorui 

FC32 

1770 

INC 

HL 


FCCE 

2630 


INC 

(HL) il znak 

FC33 

1780 

CP 

(HL) 

ikon«c stranky ? 

FCCF 

2640 


LD 

A.(pozTAB) ipozica TAB 

FC34 

1790 

JR 

Z.Nstr i. 

ano. . 

FC02 

26S0 


LD 

HL.znrad 


FC36 

1800 Radkuj 

LD 

A. #00 

inavrit vozu 

FC05 

2660 


CP 

(HL) 

.TAB > konac radku ? 

FC38 

1810 

JP 

Dotiufr < 

—> tisic a navrat 

FC06 

2670 


DEC 

HL 


FC3B 

1820 Nstr 

DEC: 

HL 


FC07 

2680 


JP 

NC-Nrad 

i*no .novy radak 

FC3C 

1830 

LO 

A. #01 

ipoc.radku *1 

FCOA 

2690 


SUB 

(HL) ibdacti pocitadlo zn/rad 

FC3E 

1840 

LD 

(HL),A 


FCDB 

27©0 


U> 

B.A 


FC3F 

1850 

LO 

kft. ,1 ndas 


FCDC 

271© 


JP 

P.Odmaz 

i—> tisk aazar 

KC42 

1860 

CP 

(HL) 

; au t. s t r. ? 

FCOF 

272© 


RET 



FC43 

1870 

JR 

NZ,Dotaz 

ir>«. . . 

FCEO 

2730 

ION 

OEFB 

#01 


FC45 

1880 

LO 

A< < rdp) 

.radky r,a konci str. 


2740 

»E 




FC46 

1890 

LO 

8/A 



2750 

iTiskovy podpro^raa 


FC49 

1900 

INC 

B 

i* 1 


2760 

i 




FC4A 

1910 Odradk 

LO 

A. #00 

.navrat vozu 

FCE1 

2770 

T iskzn 

PUSH 

AF 

iuloz 

FC4C 

1920 

CALL 

Dobufr 


FCE2 

278© 

Cl 

IN 

A.(#09) 


FC4F 

1930 

DJN7 

Odradk 

i cy« 1 

FCE4 

2790 


RLC 

A 


FC31 

1940 

RET 

inavrat 


FCE6 

2800 


JR 

NC.Cl ;(cakaj na READY) 

FC52 

195© Dotaz 

•JR 

C,Radkuj 

istrartkuja pilot 

FCE8 

281© 


POP 

AF 


FC54 

196© 

PUSH 

BC 

iuklid 

FCE9 

2820 


OUT 

(#09).A 

ivystre data na sb. 

FC35 

1970 

PUSH 

AF 


FCEB 

2830 


RET 



FC56 

1980 

LO 

HL,#©ir 4 

;zapiskni 


284© 

*£ 




FC59 

1990 

CALL Piip 

i -> 


2850 

i Uschova do buffaru 

a vybar 

FC3C 

2000 

POP 

AF ; 

obnova 


2860 

j 




FC50 

2010 

POP 

BC 


FCEC 

287© 

Dobufr 

PUSH 

HL 


FC5E 

2620 

JR 

Rack a j > 

radak a pokracuj 

FCEO 

288© 


LD 

HL.(pozbuf) iukazatal 

FC60 

2030 PrCoa 

LO 

HL.znpoc 

.pozica znaku 

FCFO 

2890 


LD 

(HL).A 

iuloz znak 

FC63 

2040 

LO 

A.(HL) 


FCF1 

290© 


INC 

HL 

idalsi 

FC64 

2050 

DEC 

A i - 1 


FCF2 

2910 


LD 

(pozbuf). 

,HL 

FC65 

2060 

AND 

•FO j 

nastav na dalsi 

FCF5 

2920 


CP 

•CD 

;Carrid 9 a Raturn 7 

FC67 

2070 

ADO 

A.#ii > 

sastnactku 

FCF7 

2930 


JR 

Z.Tbuf 

;ano..tisk buf. 

FC69 

2080 

INC 

HL 


FCF9 

294© 


CP 

•20 

.aazara ? 

FC6A 

209© 

CP 

(HL) 

.konac radku 7 

FCFB 

295© 


JR 

Z.PopRat 

.ano .preskok 

FC68 

210© 

DEC 

HL 


FCFD 

296© 


LD 

(poza).HL iza naaaz.zn. 

FC6C 

2110 

JR 

Z.Nrad 

<ano. . 

FOOO 

297© PopRat 

POP 

HL 


FC6E 

212© 

SUB 

(HL) 


FO01 

298© 


RET 

inavrat 


FC6F 

2i30 

LO 

B.A 

;na...tiskni aazary 

FD02 

2990 

Tbuf 

LD 

HL.(pozm) 

FC78 

2140 Odaez 

LO 

A.#20 


F0©5 

30©© 


LD 

A,#OA 


FC72 

2150 

CALL 

TiZn 


FD07 

3©10 


LO 

(HL).A 


FC73 

2160 

DJNZ 

Odaaz 

icykl 

F008 

302© 


INC 

HL 


FC77 

2170 

RET 

;« navrat 

FD09 

3030 


CD 

A,#©D 


FC7S 2180 Kpaoe 

LD 

HL.znpoc 

ipoc.zn/rad 

FD0B 

304© 


LD 

(HL).A 


FC7B 

2190 

LD 

A. (HL) 


FDOC 

305© 


LD 

HL .Buf 

;init ukazatal 

FC7C 

2200 

DEC 

A ;*nizit 

FDOF 

306© 

Zbuf 

LD 

A.(HL) 

ibar znak 

FC7D 

2210 

JR 

Z .Zacrad 

1 iia-li O. praskok 

FD1© 

3070 Zbufl 

CALL 

Tiskzn 

itisk 

FC7F 

2220 

CALL 

Nrad jjinak novy radak 

F()13 

3060 


INC 

HL 

idalsi 

FC82 

2230 Zac rad U> 

HL. racE>oc ;poc. rad/str. 

FD14 

3090 


CP 

•©A 

ikonac buf 7 

FC83 

224© 

LD 

B> (HL) 


FD16 

310© 


JR 

NZ.Zbuf 

>na... 

FC8* 223© 

LD 

A, #01 


FD18 

3110 


LD 

A. (HL) 

in.v. po n.r.7 

FC88 

226© 

LO 

(HL),A 


FD19 

312© 


CP 

#©D 


FC89 

2270 

PUSH 

HL 


FD1B 

3130 


JR 

NZ.Zbufl 

in* 

FC3A 

228© 

LO 

HL.indas 

FOIO 

314© 


LD 

HL,typCon 

FC8D 

229© 

CP 

(HL) 

pilot strankuja ? 

FD2© 

315© 


BIT 

l,(»t) 

iC2112 7 

FC3E 

230© 

POP 

HL 


FD22 

3160 


CALL 

2.Tiskzn 

inrd 

FC3F 

2310 

JR 

NC.Napil 

in* 

FD25 

317© 


LD 

HL.Buf 

iinitadr.buff. 

FC91 

2320 

LD 

A.#0C 


F028 

3180 


LD 

(pozbuf) 

-HL 

FC93 

233© 

JR 

Tiskzn 

.nova stranka 

F02B 

3190 


LD 

(poza).HL 

FC95 

234© NtpU 

LO 

A,B 


FD2E 

3200 


POP 

HL 


FC96 

235© 

DEC 

A .smzit 

FD2F 

3210 


CALL 

BR-KEY i 

last BREAK 

FC9? 

236© 

RET 

Z 

0. konac 

FD32 

322© 


RET 

C inavrat, kdyz nani 

FC98 

2370 

INC 

A 


F033 

3230 


LD 

HL,*03E8 

ipar.tonu 

FC99 

238© 

INC 

HL 


FD36 

3240 

Piip 

LD 

BE.#0258 


FC9A 

2390 

SUB 

(HL) i 

pocat radku do 

FD39 

325© 


CALL 

BEEPER ipiskna 

FC9B 

24©0 

CPL 

ikonct str. 

FD3C 

326© 

TestZC 

LO 

A,#FE 


FC9C 

2410 

LO 

B/A 


FD3E 

327© 


IN 

A,(#FE) 

icti CAPS-7V 

FC9D 

2420 

CALL 

Odradk ; 

do konea str. 

F040 

328© 


BIT 

1 .A 

istisknuto “Z" ? 

FCAG 

2430 

JR 

N»tr 


FD42 

329© 


JR 

Z,ErRast 

iano . 

FCA2 

244© Atrl 

LO 

HL.IGN 

iifnoruj 

FD44 

330© 


BIT 

3,A 

istisknuto "C“ 7 

FCA5 

2450 

INC 

(HL) > 

dalsi B ignoruj 

F046 

331© 


RET 

Z /ano..navrat 

FCA6 

2460 

RET 

.navrat 


F047 

332© 


LD 

A,#0F 

icti P..Y 

FCA7 

2470 AT 

LD 

HL.ICN i 

ignoruj 26 

FD49 

333© 


IN 

A. (*FE) 


FCAA 

248© 

LD 

(HL),3 ; 

vynach 2 B 

FD48 

334© 


BIT 

2,A 

ija stisknuto “I" ? 

FCAC 

2490 

RET 

i navrat 


FD4D 

335© 


CALL 

Z, Ini t 

ian*..init 

FCAD 

2500 Atr2 

LD 

HL.Atr2R .adr.rut pro barvu 

F050 

336© 


JR 

TestZC 

iC am Z - cykl 

FCBO 

2510 

JR 

PisAdr ; 

nastav 

FD52 

3370 

ErRast 

RST 

8 

ierror restart 

FCB2 

252© Atr2R 

NEC 

i carny nabo 

F053 

338© 


DEFB 

#©C 

iChyba BREAK - 1 

FCB4 

233© 

ADD 

A.#12 ;c#rvcny tisk 

FD54 

339© 


RET 

inavrat 


FCB6 

2540 

CAU- 

Oobufr 

inastav 

FD55 

34©© 

Buf 

EQU 

X 


FCB9 

255© 

LD 

HL.Tivk 










Vladimir Vyhftdk 


Katdy wtoo poitot potfebuje jednotfcu wbmen l Vitimou je snaha pouift 
alf a m i me rickt disptef vyuifvajici tetevizni obrazovku. 2e to neni Meni vidy 
optimJWm mohou pobrrdit mnozi majitett potttattk ZX-81 a Spectrum, ktefl 
potfebovaH nttdy vyu£tt sv£ho po&tate v mfetf, kde nebyl k dispozici tetevizni 
pWjknad. Proto vzntfci tento mikroterminil, ktery zobrazuje data pomocf 
sedmtsegmeutov6ho dispteje. 

Mlkrotermindl byl FeSen s ohledem nejdFfve z&kladnt 5£st s minimdlni 
na co mo£n6 nejvdtfil jednoduchost pamdtf a teprve pozdSji doplnit dalSf 
a moinost pfipojenl jak k mikropo- pamSf a televiznf alfanumericky di- 
CitaCum ZX-81 a Spectrum, tak sptej. Pro vyzkouSenf a jednoduch^ 
k jednoduchym amaterskym mikropo- apiikace on4 prvnf idsti se veimi dobfe 
dftaCum na bkzi MHB8080A. PFi stavbd hodf tento mikrotermin6l. MC£e byt 
amat6rsk6ho po£fta£e je vyhodn6 oiivit feSen jako samostatnd jednotka. 


pNpadnd spojen v jeden celek s mikro- 
poCftatem inteika popsanym v AR 
BI/83. Popis signaiu sbdrnice souhiasi 
s tfmto mikropoCttaCem. Bez problem u 
je v§ak mo£n£ mikrotermlnAl pfipojit 
k JPR-1, JMP-80 nebo jin*m. JMP-80 
je amatersky mikropodftafc, ktery vznikl 
na zAkladS zkuSenosti s ruznymi typy 
poCftatu. JPR-1 neni totii pro amat6r- 
sk6 pou2iti pffliS vhodny zejm^na pro- 
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Obr. 1. Schema mikroterminAlu MT-80 




































Obr. 2. 

Obrazec plo&nyeh 
spoju na desce 
membr&novd ktevesnice 
W509 mikrotermindlu 
MT-80 


Seznam sou5£stek 


lOI, 102 

MH3212 

103 

MH74188 

104 

MH7442 
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to, 2e vyiaduje pouiiti desky ploSnych 
spoju vysok6 presnosti nejtepe s pro- 
kovenymi dirami. Intelka je naopak 
nevyhodn4 v tom, 2e pro vytvofenl 
mininrtelnlho uspof&d4ni mikropo&taCe 
jsou nutrte nejrrterte dvC desky: z&klad- 
nl jednotka a panrteti. JMP-80 je na 
desce rozmSru 170 x 270 mm zhotove- 
n6 v b62n6 tfldS presnosti a na z£kladni 
desce obsahuje zdkladnl jednotku, pa- 
m6f EPROM 4 kB a RAM 4 kB i obvody 
vstupu i vystupu. SbCmice je podobnd 
jako u Intelky, av§ak vyuilvd konektory 
FRB. Mysllm, ie po obs^htem Ctenku 
v AR B1 a B2/83 nenrte smysl tento 
poCitaC bliie popisovat. Pfipadnym 
Zcijemcum predlohu pro vyrobu plo§- 
n6bo spoje zapuj&m. 

Nynl zp6t k mikrotermin&iu. Schema 
zapojenl je na obr. 1. Sktedd se 
z obvodu ktevesnice, obvodu displeje 
a obvodu adresov£ni. Adresu mikroter- 
min4lu je mozn6 v urCite oblasti volit 
vhodnym zapojenlm dr&tovych propo- 
jek do adresovCho pole. Takto vollme 
skupiny po osmi adresdch. Vyslednou 
jedinou adresu volime propojkou na 
vystupech 1010. Volba adres propoj¬ 
kou je uvedena v tab. 1. Obvody 109 
a 10 Ize vynechat a mikrotermin&l 
adresovat primo ze systemu sigrteiem 
VybCr na SpiCce konektoru C. 2. 
K ockteleni vstupu a vystupu 
od datovych stternic system u 
a vystupu od datovych sbCrnic systemu 
slouil lOI a 102. Signal z datovC 
sbSmice za 102 se dekbduje na seg- 


Tab. 1. 


oktet 

A 

B 

C 

O 

E 

F 

G 

13 

3 

1 

5 

6 

2 

4 

7 

14 

1 

4 

5 

6 

2 

3 

7 

15 

3 

4 

5 

6 

2 

— 

7 

19 

3 

4 

2 

6 

7 

— 

5 

21 

3 

1 

5 

2 

7 

4 

6 

22 

1 

4 

5 

2 

7 

3 

6 

23 

3 

4 

5 

2 

7 

— 

6 

25 

3 

1 

2 

6 

7 

5 

4 

26 

1 

4 

2 

6 

7 

5 

3 

27 

3 

4 

2 

6 

7 

— 

5 

28 

1 

2 

5 

6 

7 

4 

3 

29 

3 

2 

5 

6 

7 

— 

4 

30 

1 

4 

5 

6 

7 

3 

— 

31 

3 

4 

5 

6 

7 

— 

— 


menty a pozice v dekod6rech 103 
a 104. 103 je tfeba naprogramovat 
podle poiadavku na tvar zobrazova- 
nych znaku. Je mo2n6 zobrazit nejen 
Ctslice, ale i rtekterC jednoduclte znaky. 
Pro segmenty, kterC majl svftit, je tfeba 
naprogramovat do MH74188 hodnotu 
L. Vystupy 104 urCuji pozici segmento- 
v6ho zobrazovaCe, na kterC je pr4vd 
zobrazovarte sestava segmentu. Displej 
pracuje v multiplexnlm reiimu. Logick£ 
nula, kter& cyklicky spinet jednotliv6 
pozice displeje^ je vyuiita i pro ktevesni- 
ci. Sign&ly ktevesnice jsou kbdovdny 
tak, 2e vystup pro tiaCitka 0 ai F je 
pffmo v k6du BCD. Bit D5 charakterizu- 
je zbyvajlcl Ctyfi funkCnl tiaCitka. Hod¬ 
notu bitu D6 a D7 je moinC navolit 
pomocl obvodu RS z 108. Logickd 
jednotka na 08 charakterizuje platni 


data. Po Spatnych zkuSenostech 
s ktevesnicl PMI-80 byl vliv z&kmitu 
tlaCitek odstran&n technickymi 
prostfedky primo v mikrotermin&lu. 
Data se do mikropoCitaCe Ctou az po 
ustelenl stavu tlaCitek. Ktevesnice je 
membr&novd, podobn£ jakou nrte mik- 
ropoCitaC JPR. Postup vyroby je po- 
psAn v AR B2/83. 


NSkolik pozrtemek ke konstrukci 


Mikrotermindl je na desCe s ploSnymi 
spoji o rozmCru 170 x 130 mm. TCsnC 
nad touto deskou je pomocl rozpCrek 
upevn&na sestavend membr4novd 
ktevesnice, kterd je propojena se zd- 
kladnl deskou dr£tovymi propojkami. 
K mikropoCItaCi se pfipojuje mikroter- 
mindi pres konektor s propojovaclm 
kabelem. Segmentovky je vhodnC 
umlstit do objlmky, aby se dostaly do 
urovnC ktevesnice. Rezistory R2 a R5 
jsou bu<f na opaCnC stranC plo5n6ho 
spoje nebo nad 106. Zapojeni samo 
v sobC neskryv6 i&d rte zAludnosti. 
S vhodnym programem pracuje podle 
poiadavku uiivatele. 



























PreruSovaci system a iasovai mil 

•; • ' -:. ; - ■', < 
r .^* 1 • ■' • ••• ... .,-W. 


ing. S. SadlAk, mg. P. Chovan 


Prispevok je urCeny pre uiivatePov mikropoCitaCov neobsahujuctch preruAo- 
vacf system popr. iasovai a htavne pre aiujemcov, ktori nemaju nwirnsf 
zaobstaraf si obvody MH3214, MH3212 a 18253, pouiivanA pre tento tiCel 
v prtemyselne vyrAbanych sys temo c h . V predkladanom rie&enf su pouiitA 
dostupite integrovanA obvody TTL mafej integrAete a CftaCe MH74193 (74192). 
RteAenie predstavuje rodlrenie moinAho jednourovftovAho preruAovania na 
viacurovftovy preruAovaci system a cfalej obsahuje jeden 8bitovy CasovaC, 
pridom vystup iasovaia zAroveft tvorf jednu preruiovaciu uroveA. Zapojenie 
umoiAuje rozSfrif funkciu mikropoCftaCa pre riadenie v reAlnom base 
a reaiizovaf Casovacte funkcie bez pouiitia programovych Casovac ich sluCiek. 
Aj ke<f je moinA rieienle vyuiff v&eobecnejAie, ovIAdacie signify a funkcie s6 
popisanA k pouiitiu so Akotekym rrokropo Cft aCom PMI 80. 


Popis obvodovAho rieSenia pre- 
ruSovacieho systemu 


NAvrh obvodovAho rieAenia preruAo- 
vacieho systemu predpokladA existen- 
ciu jednourovAovAho preruAovacieho 
systemu v mikropoCitaCi. Hardwarovo 
je teto moznosf zabezpeCenA tym, ie 
vystup INTA systAmovAho budiCa 8228 
je cez rezistor 1 ko pripojeny na na- 
pMtie +12 V. Po prijatf poiiadavky na 
preruAenie cez vstup INT mikroproce- 
sora 8080, generuje obvod 8228 k6d 
preruAenia RST 7, nAsledkom Coho 
mikroprocesor vykonA skok na adresu 
38 H s uloienfm nAvratovej adresy do 
zAsobnika. Od adresy 38 H je v bun- 
kAch pamati (vACAinou ROM) uloienA 
inAtrukcia skoku na bunku v pamati 
RAM situovanu v oblasti zAsobnika. Na 
bunky od tejto adresy vkladA uiivatef 
inStrukciu cfalAieho skoku na adresu, 
kde zaCina vlastny obsluiny program 
preruSenia. 

ObvodovA rieSenie preruAovacieho 
systemu predstavuje rozAirenie na 
AtvortirovAovy system, umoiAujtici roz- 
liAif a spracovaf poiiadavky na preru¬ 
Aenie: INTR 1 ai INTR 4. StvorurovAovy 
system boj zvoleny s ohradom na 
predpokladanu prakticku potrebu, 
princip umoiAuje jednoduchym spdso- 
bom rozAirenie ai na osemurovAovy 
system, prirodzene s v&CAim poCtom 
potrebnych obvodov. 2iadosti o pre¬ 
ruAenie INTR 1 a INTR 2 sa privAdzaju 
z riadenAho objektu na hodinovA 
vstupy D kiopnAho obvodu lOI. Kiopny 
obvod sluii ako pam&f iiadosti. ZApis 
ziadosti sa uskutoCAuje pri zmene 
z L do H urovne signAIu iiadosti. ZApis 
iiadosti je moinA blokovaf pomocou 
D vstupov lOI, vtedy je potrebnA, aby 
biokovacie signAly Dll a Dt2 mail 
uroveA L. Riadenie urovne tychto vstu¬ 
pov a tym akceptovanie popr. zAkaz 
iiadosti je moirte zabezpeCif ich spoje- 
nlm s vystupmi brfin obvodu 8255 
oviAdanych programom. DalAla preru- 
Aovacia uroveA je odvodenA od Cinnosti 
CasovaCa. Po ukonCenf Casovacej akti- 
vity je vystupnym signAlom z CftaCa 
prekiopeny D kiopny obvod 107/B, 
z ktorAho vystupu je odoberany signal 



iiadosti o preruAenie INTR 3. Pomocou 
vstupu D13 nastaverteho na uroveA L je 
moinA blokovaf zApls tejto iiadosti. 
Posiednou preruAovacou urovAou je 
iiadosf INTR 4, nevyiadujuca prfdavnu 
pamaf. Qenerovania iiadosti ako aj jej 
kvitovanie popr. z£kaz je zabezpeCerte 
jednou z brSn obvodu 8255 pracujucej 
v m6de 1 popr. 2 (strobovany vstup- 
vystup) a pomocou riadiacich signSiov 
brSny C tohto obvodu. SignSiy iiadosti 
na preruSenie zapisarte v pamttti a trva- 
juce ai do ich kvitovania, sa logicky 
sCftaju pomocou obvodu 102. Vytdedny 
signal, tj. iiadosf o preruSenia INT 
s aktivnou urovAou L, je privedeny na 
systemovy vstup INTex mikroporitaCa 
PMI 80 alebo po jeho invertovani pria- 
mo na vstup INT mikroprocesora 8080 
v inych systemoch. 

Pretoze sa jednS o rozCirenie jedno- 
urovAovCho systemu, je potrebn6 za¬ 
bezpeCif rozliSenie jednotlivych preru- 
Sovacich urovni. RozliCenie je zabez- 
peCenC vykonanim operAcie vstupu 
(inCtrukciou IN port) zo zvteStneho 
portu. Tento port generuje k6d podra 
aktivovanych preruSovacfch urovni a 
tvori ho obvod 104. Na vstupy 104 su 
privedenC zapamfitanC iiadosti o pre- 
ruCenie, vystupy 104 su spojenC s 
linkami DBO ai DB4 dAtovej zbernice 
„vytiahnutymi“ pre uCel Citania cez 
rezistory 22 kn na uroveA H. Pri in- 
Strukcii Citania je aktivovany adresovy 
bit A7. Priradenim jednotlivych urovni 
k linkdm DBO ai DB4 a tvarom krAtke- 
ho rozliSovacieho programu je stano- 
venA priorita preruSovacfch urovni. Pri- 
klad jednoduclteho roziiCovacieho pro¬ 
gramu je uvedeny v cTatSej Castt. Podfa 
tohto zapojenia a programu je priorita 
preruCovacich urovni nasiedovnd: 
INTR 4 (najvySSia priorita), INTR 3, 

INTR 2, INTRt. Pripad, 2e program 
neidentifikuje ani jednu uroveA, zna- 
mend poruchovu Cinnosf (popf. stlaCe- 
nie tlaCitka INT v mikropoCitaCi PMI 80, 
Co moino vyuiif ako cfalSiu preruSova- 
ciu uroveA). Vzhradom na obvodovu 
jednoduchosf „k6dera“ priorit a identi- 
fikaCny program je potrebnC otezku 
priorit preruienia upresnif nasledovne. 
Uvddzand priorita urovni sa realizuje 
v okamiiku vyskytu zapamStanych iia¬ 
dosti, obstuhovanA zaCina byf najvyAAia 
priorita. Ak v obsiuinom programe 
tejto Cirovne kvitujeme (zruCime) tuto 
iiadosf a povolfme preruAenie inStruk- 


ciou El, je vyvolanA novA preruAenie 
s obsiuinym programom najvyAej prio¬ 
rity zo zostAvajucich poiiadaviek. Takto 
je moinA preruAif aj vyAAiu uroveA 
niiSou, ak to v obsluinych programoch 
pripustime. Kvitovanie (zruAenie) iia¬ 
dosti o preruAenie je generovanA pro- 
gramovo, konkrAtne inAtrukciou vystu¬ 
pu (OUT port) do portu pamAti iiadosti. 
TAto inAtrukcia byva v tele obsluinAho 
programu tejto iiadosti. Ziadosf INTR 1 
je zruAenA vykonanim inAtrukcie OUT 
do portu tvorenAho lOI/A, priCom je 
aktivny adresovaci bit A5. Obdobne je 
kvitovanA iiadosf INTR 2, nulovany je 
obvod tOI/B a aktivovany je adresova¬ 
ci bit A6. Na obsahu registra A pri 
vykonAvani inAtrukcie OUT v oboch 
pripadoch nezAleif. Kvitovanie iiadosti 
INTR 3 je zabezpeCenA vykonanim in¬ 
Atrukcie OUT do portu tvorenAho 
107/B, aktivovany je adresovaci bit A7, 
akumuiAtor mupi maf pri vykonAvani 
inAtrukcie nulovii hodnotu. TAto poiia- 
davka vyptyva zo suCasnAho vyuiivania 
bitu A7 pre CasovaC. Kvitovanie iiadosti 
INTR 4 prebieha podfa pravidiel komu- 
nikAcie s obvodmi 8255. Pouiitie adre- 
sovacich bitov A5, A6, A7 vychAdza 
z pouiitia principu lineArnej selekcie 
v adresovani portov a zo skutoCnosti, 
2e tieto bity su v mikropoCitaCi PMI 80 
vornA. Po doplneni zAkladnej verzie 
PMI 80 o uiivatefsky obvod 8255 
a obvodov podra tohto ClAnku zostAva 
uifvatefovi k dispozicii vofny adresova¬ 
ci bit A4 a adresovacie bity A5, A6 
moino pouiif pre vstupnA party. Upiny 
k6d adries portov mdie byf ovptyvneny 
pripojenim inych portov I/O. Jeho 
stanovenie ponechAme uifvaterovi po- 
dobne ako aj pridelenie inych priorft 
preruAeni podfa apiikAcie mikropo- 
CitaCa a povahy riadenAho objektu. 

PoznAmka k nevyuiivaniu niektorych 
urovni: nevyuifvanA iiadosti — vstupy 
INTR 1 INTR 2 a INTR 3 a ich 
biokovacie vstupy Dll a DI2 netreba 
oAetrovaf. Ak sa nevyuiiva uroveA 
INTR 3 ale je vyuiivanA Casovacia 
funkcia, je potrebnA vstupu DI3 priradif 
uroveA L. 


Rozl&ovaci program a prfktad 
obsluinAho programu. 


SpCsob vyvotania rozliAovacieho 
programu ako aj stanovenie priorit 
urovni bolo popisanA v predchAdza- 
jucej Cast!. Program je zapisany 
v mnemokAde MHB8080 a so symbo- 
llckymi adresami. 



* Uloiente obsahu registra A a prfznakov6ho registra do 
z4sobn(ka z dbvodu vyuiivania tychto registrov 
v roziiSovacom programe. tn$trukcia spatn6ho vyzdvih- 
nutia ich obsahu POP PSW je obsiahnut^ v ka2d4m 
podprograme iiadosti preruSenia. 




Obr. 1. PreruSovacf system a dasovad 
mikropodrtada 


Popis obvodov6ho rie$enia 
£asova£a 

Casovat umoiftuje generovaf jednu 
tasovu aktivitu nezavisle od Cinnosti 
CPJ (po zatati titania vyvolanom CPJ). 
Jedna sa v podstate o 8bitovy titat 
zapojeny ako vratny s moinosfou na- 
stavenia zatiatotnej hodnoty a postup- 
nym od pot itavan im vonkajsich hodino- 
vych impulzov ai do nulovej hodnoty 
titata, kedy sa konti tasovacia aktivita 
a mdie byf vyvolant preru£enie tin- 
nosti CPJ. Casovat pozostava z dvoch 
4bitovych tftatov MH74193 (alebo 
MH74192), vzdjomne spojenych na 
8 bitovy vratny titat a riadiacich obvo- 
dov. Na nastavovacie vstupy A, B, C, 
O titatov su pripojent linky DBO ai 
DB7 datovej zbernioe. Zapis pozadova- 
nej potiatotnej hodnoty tasu (pottu 
impulzov) je zabezpeteny vykonanim 
inttrukcie OUT do portu titatov, pri- 
6om je aktivovany adresovaci bit A7. 
V pripade pouiitia titatov 74193 sa 
jednA o osembitovy dvojkovy that, pri 
pouziti titatov 74192 o dvojstupftovy 
dekadicky that (do obvodu desiatko- 
vtho rAdu 109 sa potom ukladA potet 
desiatok). Rozsah potitania dvojko- 
v6ho tltata tint: 1 ai 255 impulzov, 
desiatkovtho: 1 ai 165 impulzov (je 
moint nastavif 15 desiatok). 


Pamaf ukontenia tasovacej aktivity 
tvori D klopny obvod I07/B, z jeho 
vystupu sa odoberA signal prerutova- 
cej urovne INTR 3. D klopny obvod 
107/A a hradia 106, 102 sluiia pre 
blokovanie potitania a synchronizaciu 
zapotitania prvAho impulzu. Hradia 102 
spolu s diodami D1, D2 umoiftuju 
systtmovt nulovanie (signaiom RE¬ 
SET) ako aj funktnt nulovanie sek- 
ventnych obvodov tasovata. Z obvo- 
dov tasovata je moint bezprostredne 
odoberaf tasovA priebehy Tl, T2, T3. 
Ich priebeh ako aj tasova neurtitosf 
vyplyva z obr 2. Tieto vystupy su 
akhvovant po kaidom nastaveni tfta- 
ta, to v niektorych apiikAciach nie je 
vhodnt (napr. tasovanie medzery me- 
dzi impulzami). PripadnA potlatenie 
tasovanych vystupov pomocou vystu- 
pov obvodu 8255 ponechavame tita- 
tefovi. Pokiaf sa vyuifva iba jedna (neo- 
pakovana) tasovacia aktivita je pracov- 
na rychlosf obmedzena iba medznou 
frekvendou obvodov tasovata. ZJoii- 
tejSie tasova aktivity (opakovanA s rtz- 
nou dobou, popr. dlhA) sa realizuju 
programovo pomocou vystupnych li- 
niek obvodu 8255 a preruSenia vyvoia- 
nAho tltatom — INTR 3. Oblasf gene- 
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rovanych dasov je v tomto prfpade ob- 
medzenA dobou spracovania ob- 
sluindho programu. 

Pouiitie dasovada dopIFiujeme v tom 
zmysle, ie neumoiftuje generovaf su- 
tasne viac Casovych udalostf, nie je 
moinA preditaf okamiity stav ditada, 
p oditani e hodinovych impulzov moino 
nahradif podftanfm udaiostf z riade- 
nAho objektu. NAvrh obvodovAho rie- 
§enta generator a hodinovych impulzov 
CLOCK vzhfadom na rdzne potrebnA 
Casy ponechAvame uifvaterovi. 

KonitrukM rieicnie 

Ku konStrukdnAmu rieSeniu obvodov 
preruSovacieho system u a dasovafia 
iba niekofko poznAmok. UvedenA 


cyklus casovaca * N imp. 
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Obr. 2. Casov6 priebehy 


obvodovA rieSenie moino reatizovaf na 
doske ploSnych spojov orientadne 
s rozmermi 150 x 80 mm. Pre osadenie 
obvodov podfa obr. 1 spAjkovacie pole 
zAkladnej dosky PMI 80 nepostaCuje. 
VhodnA je vyrobif zvIAStny modul 
a upevnif ho pomocou upevrtovaci'ch 
skrutiek a distandnych stfpikov nad toto 
spAjkovacie pole. Pre elektrickA prepo- 
jenie je vhodnA vystrojif modul malymi 
dvoma ai troma konektormi FRB. Je- 
den pre prepojenie so systAmovym 
konektorom PMI 80-K1, druhy pre 
prepojenie s konektorom PMI 80—K2 
a prt'padny cfatei pre prepojenie 
s riadenym okoHm. NapAjacie napfltie 
(+5 V) moino pouiif z PMI 80, kde pri 
pouiitf napAjada SN 080 je dostatodnA 
rezerva v odbere. 



Ing. Milosiav 6apek 


TiskAroy jsoujednfm * nejpoulhranAjUch perifemfch zaftaml v mikropodftado- 
v$cb systAmech. V mnoha pHpedech je vybevenf tfcfcimou Kmitujfcim tefctorem 
pro poutHf v praxi. V*b *r McMo zaffzeni nonf viafc na trim nMarak behalf. 
Jednou a moinostl v tMo oblasti ja nAkup retethmA dostupnA zapiaovacf jednotky 
Consul 256.8. JednA aa v podstati o a tekt riek * psacf strojritemf z e z ternth o 
zaffxeni pomoci malice ovUkdacfch magneto. Rfcficf elektroniku s«ak vArobce 
nidodfct Tuto funkei zabezpedf p opa anf system. 


Jednfm z uvodnfch poiadavkQ bylo 
vystadit pfi realizaci s volnymi IO vodidi 
portu desky JPR-1. Proto musety byt 
vykonovd spfnade doptnAny dekodAry. 
K ovIAdAnf tiskArny potom posted! 
jediny vystupnf port (Port 20UT konek- 
toru X3). Bity 0 ai 3 zde tvoff adresu 
sloupce, v ndmi lei! spfnany magnet, 
bity 4 ai 6 adresu fttdku a bit 7 Ize 
ponechat pro ovtAdAnl dekoddru adres. 
Do volnyeh bodu ovIAdaci matice byiy 
pomoci propojek a dlod umfstAny take 
ovIAdaci magnety, oddAtenA na psacim 
stroji na konektorech K3 a K7. Ze 
zapisovacf jednotky do podftade je 
snfmAna take zpAtnA stavovA informa* 
ce. Nenf vyuiito v§ech kontrolnfch 
funkei, a proto postadf jen pAt vstup- 
nich bitu. Nutrrjm se ukAzafo pouift 
vstupni bity z konektoru X2 podftade, 
asice PORT 0 IN (pro pfipojertou 
klAvesnici Consul 259.11) nebo PORT 
11N (pro pfipojenou klAvesnici ANK-1). 
Obsadfme-H vidy stejnd bity, budou se 
obA feSenf tiSit pouze adresaci vstup- 
nfbo portu (tab. 1). Z uvedenAho 
vypiyvA, ie koncovky obou kabelQ 
neieiejfcich konektorom X2 a X3 JPR-1 
je nutno kontrolnfmi vodidi propojit To 
sice neni pfiiiS instaladnd etegantnf, ale 
je to jednoduchd a uspomd. Stykovy 
obvod je na dvou jednoduchych des- 
k£ch s ptoSnymi spoji (zdroj 5 a 12 V 
a vtastni obvody), z technologickych 
duvodu jednostrannych s mnoistvfm 
propojek. K desce logiky je pfiveden 
jeden kabel ze SAPI-1 a tfi kabeiy ze 
zaptsovad jednotky. 

Jednoduchd pfipojenf je viak tfeba 
doptnit programem. Program 


Tab. 1. Adrasovint podte pouZHS kl*vsnic< 


KtAveanic® 

Obssh na adr.430E, 4360.4389H 

ANK-1 

Consul 2S9.11 

28H 

24H 


Tab. 2. DoptrtkovS tunkc* 
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Gra(ick6 schema obiiub^ho 
program 


k ovidddnt tiskdrny je naps&n ve stroj o- 
vdm k6du a je zabudovdn do systemu 
ZPS-2 tak, aby byfo moino pouifvat 
tiskdrnu bdinymi pfikazy BASIC 
(LLIST, PRINT#L, TAB, SPC). Zaj»Tuje 
pfekddovAnf znakQ z kddu ASCII na 
kdd matice magneto (podprogram 
CODE), zjistf poiohu typovdho ko5e 
u poiadovandho znaku a podle potfeby 
zajistf i pfefazenf. ZabezpeOf take samot- 
rte vystenf znaku na PORT 2 s potfeb- 
nymi dasovymi p aram etr y (p o d pr ogr amy 
VYSL a DELY). Pfed vydteim znaku 
kontrotuje ukondenf vSech dOieiitych 
funkei zapisovacf jednotky (podprogra- 
mem ZNAK). K dek6dov6nf pouifve 
program tabufku, obsahujfcf kontrofnf 
znaky a veikd pfsmena. V pfipadd, ie je 
tfeba i mafyeh pfsmen, hddku a dArek, 
je moino tabuiku jednoduie odzadu 
dopinit Programem Ize ovftdat take 
dopldkovd funkce zapisovacf jednotky 
a to volAnf CALL pfes vstupy CTRL 
3 a CTRL 4 (tab. 2). Dvodni krAtky 
program INSTL proved® instated no- 
v6ho oviSdacfho programu tiskAmy do 
systAmu. 

Program I s tabulkou znaku je kratSf 
nei 256 bajtO a vejde se do votnA 
oblasti pamdti 4300H ai 43FFH. To mA 
veiky vyznam, nebof obskiiny program 
tiskAmy bude moino nahrAvat spo- 
lednd s Interpreterem BASIC. Lze ho 
ovSem utoiit do Hbovotne oblasti pa* 
mdti. Je ho tfeba zapsat do pfisludne 
oblasti podte vypisu programu bud 
pomoci pffkazu .S monitoru pffmo, 
nebo je moino pouift systAmu TOOL, 
zapsat zdrojorf program pfetoiit ho 
a pfesunout pffkazem M na poiadova- 
nou adresu. Podte vypisu obsahu pa* 
mAti napinfme pfedepsanou obtest 
prvky dekddovad tabuiky. NAvAAtf 
T v programu so mud shodovat 
s adresou prvnfho z nich. U pOvodnfho 
souboru BASIC je tfeba dAle zmAnit 
skok JMP 4407H na JMP 4300H. Skok 
teif na ad rose 4400H. Tak to pfipraverty 
interpreter se nahraje pfikazem .K.S 
z oblasti 4300H—5FFFH. Novy BASIC 
je moino opdt startovat p fikaz e m .B. 
Oproti dffvAjdku pfibyvA pouze inicteH- 
zace .A-L=1 pfed spu&tenfm. 











Obr. 1. Schema pfipojenf tiskArny 
kSAPI-1 


Vzhledem k celkovd koncepci pro- 
gramov6ho vybaveni ZPS-2 nelze uil- 
vateiskou tisk^rnu pouift pomoci 
CTRL-P a to v Monitoai vubec a v soubo- 
ru BASIC a TOOL jen s ve!mi sloiitymi 
a rozsihlymi uravami a zd&ahy ck> jejich 
struktury. Znak $ interpretuje 
ttsk&ma jako „KCs“ (jednotypov6). 
V programu nebyty dodrierty r»6kter6 
doporuden6 5asov6 parametry ovt&da- 
nO tiskirny. Budici impulsy typovych 
pAk bylo moino zkrAtit a tfm snfiit 
pfls(u§nou razanci uhozu, celkovA rych- 
lost psani byla upravena na 11 znaku/s 
(bez pfefazenf). Relativnl pomalost tak- 
to vzniklOho zaHzenf j© v5ak vyv42ena 


velmi dobrou kvalitou tisku. TechnickA 
i programovA prostfedky by bylo 
moino je5t6 mfrnA zjednoduSit vyuiitfm 
vlastnostf rozmfst6n( magneto v matici 
zapisovacf jednotky (podie k6du 
ASCII). Upravou v$ak vyvstanou jin6 
probldmy k feSeni, takie puvodni kon- 
cepce vychAzI technicky CistSI a pfe- 
hledn&jSf. 
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[2] UiivatelskA dokumentace a progr. 
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pis obsluinAho programu 




MEMORY ASSEMBLER MC3-8 

PAG01 


4334 11 

00 90 


LXI 

D,MSI 50 






4337 CD 

94 43 


CALL 

DELY 






433A 06 

t6 


MVI 

B,16H 



IODEF 

EQU 

11EH 

433C 79 



MOV 

a)c 



PORTO 

EQU 

24H 

433D 11 

C2 08 

Til: 

LXI 

D.MS30 



PORT! 

EQU 

28H 

4340 CD 9D 43 

TI2: 

CALL 

ZNAK 



PORT 2 

ECU 

2CH 

4343 50 



MOV 

D,B 



MS30 

EQU 

8C2H 

4344 CD 

94 43 


CALL 

DELY 



MS4 0 

EQU 

0DO4H 

4347 El 



POP 

H 



MSI 50 

EQU 

9000H 

4?46 D1 



For 

D 






4349 C9 



RET 







434A 79 


TI4: 

MOV 

A,C 






434B E6 

80 


ANI 

8 OH 




ORG 

430 OH 

434D CA 

55 43 


JZ 

TI3 

4300 OE 

06 

INSTL: 

MVI 

C,6H 

4350 3E 

4E 


MVI 

A.4EH 

4302 11 

0B 43 


LXI 

D,TISKR 

4352 C3 

31 43 


JMP 

TI0 

4305 CD 

IS 01 


CALL 

IODEF 

4355 79 


TI3: 

MOV 

A,C 

4308 C3 

07 44 


JMP 

4407H 

4356 06 

16 


MVI 

B.16H 

430B D5 


TISKR: 

PUSH 

D 

4358 C3 

40 43 


JMP 

TI2 

430C E5 



PUSH 

H 

435B 06 S4 

TI5i 

MVI 

B,0E4H 

430D 26 

24 


MVI 

H,PORTO 

435D C3 

3D 43 


JMP 

Til 

430? 79 



MOV 

A,C 

4360 D5 


CTRL4: 

PUSH 

D 

4310 FE 

0D 


CPI 

0DH 

4361 11 

04 0D 


LXI 

D,MS40 

4312 CA 

5B 43 


JZ 

TI5 

4364 C3 

6B 43 


JMP 

TI8 

4315 PE 

20 


CPI 

2 OH 

4367 D5 


CTRL3: 

PUSH 

D 






4368 11 

C2 08 


LXI 

D.MS30 






436B E5 


TI8: 

PUSH 

H 

4317 CA 

71 43 


JZ 

TI7 

436C 26 

24 


MVI 

H,PORTO 

431A 11 

8A 43 


LXI 

D.T-21H 

436E C3 

40 43 


JMP 

TI2 

431D CD 

8B 43 


CALL 

CODE 

4371 3E 

to 

TI7: 

MVI 

A, 10H 

4320 11 

C2 08 


LXI 

D.MS30 

4373 06 

16 


MVI 

B,16H 

4323 7E 



MOV 

A,M 

4375 C3 

3D 43 


JMP 

TI1 

4324 S6 .10 


ANI 

1 OH 

4378 26 

2C 

VYSL: 

MVI 

H f PORT2 

432b CA 

4A 43 


JZ 

TI4 

437A E6 

7F 


ANI 

7FH 

4329 79 



MOV 

A, C 

437C 77 



MOV 

M, A 

432A E6 

80 


ANI 

8 OH 

437D 00 



NOP 


432C C2 

55 43 


JNZ 

TI3 

437E 00 



NOP 


432F 3E 

3E 


MVI 

A.3EH 

437F F6 

80 


ORI 

6 OH 

4331 CD 78 43 

TI0: 

CALL 

VYSL 

4381 77 



MOV 

M, A 





- • t 



4382 CD 

94 

43 


CALL 

DELY 

4385 E6 

7F 



ANI 

7FH 

4387 77 




MOV 

M,A 

4388 26 

24 



MVI 

H,PORTO 

438A C9 




RET 


438B 83 



CODE: 

ADD 

E 

438C 5F 




MOV 

E, A 

438D 3E 

00 



MVI 

A, 0 

438F 8A 




ADC 

D 

4390 57 




MOV 

D,A 

4391 1A 




LDAX 

D 

4392 4F 




MOV 

C, A 

4393 C9 




RET 


4394 F5 



DELY: 

PUSH 

PSW 

4395 IB 



DL: 

DCX 

D 

4396 7B 




MOV 

A,E 

4397 B2 




ORA 

D 

4398 C2 

95 

43 


JNZ 

DL 

439B FI 




POP 

PSW 

439C 09 




RET 

439D F5 



ZNAK: 

PUSH 

PSW 

439E 7E 



ZN: 

MOV 

A,M 

439F E6 

2E 



ANI 

2EH 

43A1 FE 

04 



CPI 

04H 

43A3 C2 

9E 

43 


JNZ 

ZN 

43A6 FI 




POP 

PSW 

43A7 CD 

78 

43 


CALL 

VYSL 

43AA C9 




RET 

43AB 11 



T: 

DB 

11H 


END ERROR(S)00 
MEMORY ASSEMBLER MCS-80 PAS 


mikroelektronika '88 












TESLA StraSnice k. p. 

zdvod J. Hakena 
U n&kl. n&draif 6 
Praha 3-2iikov 
130 65 

prijme: 

sam. odb. ekonoma-rozborare 

(V§ nebo USO + praxe) 

sam. vyvoj. pracovnfky 

(VS nebo USO + praxe) 

\ 

konstruktgry (USO + praxe) 

sam. konstrukt6ry (VS + praxe) 

sam. odb. ekonomy (zasobovace) 

(USO + praxe) 

ved. odb. techn. pracovnika (vedouci pro- 
vozu a udrzby) (VS + praxe) 

Z6jemci hlaste se na osobnfm odd&lenf naSeho z&vodu nebo na 

tel. 77 63 40. 


N&bor je povolena na cel6m uzemf CSSR s vyjimkou vymezen^ho uzemi. 

Ubytovdni pro svobodnO zajistime v pod. ubytovng. PlatovO zafazeni die ZEUMSII. 



TB81AEI.TOS <*orov# padnik zajtffuje technics a obchodni sluiby * obtest! apoffabnf a imrestffeti etektroniky vftech 
VMJ T«^l« a iak« ve ayfac aa foti obtastoch produkce oataMch odvfttvi etoktrotechnickAho pr&uysiu. PM & Outi* 
atektromtaca nkwtofco hwpodihtifi a waditarodnf technicto-abchodni fcooperaca. 2 daHH roatahte fiiworti 


+ Mtkroeiektronfka - vyvoj, apUkaoe, programovAnf, Skofenf a zavAddnl pfi etektronizad n&rodnfho hospod&fstvl 
+ DodAvky efektronickycti aoud&stek. 

* OodAvky a sends invesdtnfcb zaffzenf, vySSf dodavatefskA funkce . 

+ Radonakzace a automatizaca. 

+ UazinArodnl techrdcko-obchodn! kooperaoe. 

+ PrQzkumovy prodej nosinek spotfebnf etektroniky a efektrotechniky. 

•TProdej a sends spotfebnf etektroniky s poradensMm , cetostAtnf zAsitkovA stuiba. 

+ Pomoc radioamatPrum a mtadyrn etektronikQm, spotuprAce se Svazarmem, SSM at. 

+ Muttiservis. 

+ PrQmystovA opravArensM a tipravArensM. 

+ Ustfednf gesce technickAho sendsu. ffzenf a kontroty jakostt, zAsobovAnf aoubAstkami a nAhradnfmi dffy. 


ZAVOOY 3 OBIA8TNI POSOBNOSTl: v Praia, Oatf nad La ba n, OatravA, BrnA, Uhenkkn 
Bystrici a Koiicicit. 


BratiatawA. BnckA 

WiamBSBV^ VrBiVBVIV 


06«»* sfro dl E MMgwIitt . ZHS mSUZS. Pr * , “ <”*»= riwn Praha (PtZ); a«d 


GENERAl.Nl ftEDITELSTVl 
113 40 Praha 1, Dlouha 35. 

Tel. 231 5396, 
dips 122629 

TESLA E LTOS 

oborovy podnik 



CKD Praha, o. p. 
zavod POLOVODlCE 

na trase metra C 

stanice: Mlddeinickd—Budejovick£ 

Chcete pracovat v novem, atraktivmm 
prostredi? 

Chcete pracovat na nejmodern§j§f vypo- 
cetm technice? 

Chcete videt jak se chova vase technick6 
dilo? 

Chcete se podilet na programu automati- 

Cekdme na v£s — informujte se primo 
v z^vod§! 

Moznost ziskdni bytu! 

PfilJiMAME: programdtory, syst6mov6 ing., prog.-analytiky, projektanty, teoret 
kybernetiky a ing. silnoproucte i slaboproucte elektrotechniky pro vyvoj slozitych 
automatickych systemu Fizeni dod£vanych do tuzemska i na export 

Prijimdme absolventy vSech pffbuznych oboru schopn6 a octiotn6 se podilet na 
tomto programu, at jii v oblasti v^voje HW a SW automat prostfedkO vyr^b^nych 
a vyvijenych ¥ 6 kd POLOVODlCE, tak v oblasti projektovdni a niivrhu syst&mu 
automatizovan6ho fizeni technologickych procesO a tech, objektu pro oblast 
teplych a studenych vdlcoven, hutnlho a sl6vdren$k6ho prumyslu, cement&ren, 
upraven rud a dalSich. 

it 

Informace: nabor pracovniku — 
primd linka 42 69 65 

CKD POLOVODlCE, Budejovicka 5, Praha 4 


